diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 20:28:29 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 20:28:29 -0700 |
commit | ff16db1aa306113132cc6cfaa70791a0db75e0a5 (patch) | |
tree | b5a016232c62645a1276c30eb4b69356662c060e /src/Text/Pandoc/Readers/Txt2Tags.hs | |
parent | bf54a6335a0d2ae3fdf03e60a84448476f651d59 (diff) | |
download | pandoc-ff16db1aa306113132cc6cfaa70791a0db75e0a5.tar.gz |
Automatic reformating by stylish-haskell.
Diffstat (limited to 'src/Text/Pandoc/Readers/Txt2Tags.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Txt2Tags.hs | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/Text/Pandoc/Readers/Txt2Tags.hs b/src/Text/Pandoc/Readers/Txt2Tags.hs index 0e68cdfb7..fdf7a827a 100644 --- a/src/Text/Pandoc/Readers/Txt2Tags.hs +++ b/src/Text/Pandoc/Readers/Txt2Tags.hs @@ -32,26 +32,27 @@ module Text.Pandoc.Readers.Txt2Tags ( readTxt2Tags ) where +import Control.Monad (guard, void, when) +import Control.Monad.Except (catchError, throwError) +import Control.Monad.Reader (Reader, asks, runReader) import Data.Char (toLower) +import Data.Default import Data.List (intercalate, intersperse, transpose) import Data.Maybe (fromMaybe) import Data.Monoid ((<>)) -import Text.Pandoc.Builder (Blocks, Inlines, trimInlines) -import qualified Text.Pandoc.Builder as B -import Text.Pandoc.Definition -import Text.Pandoc.Options -import Text.Pandoc.Parsing hiding (space, spaces, uri) -import Text.Pandoc.Shared (compactify, compactifyDL, escapeURI, crFilter, underlineSpan) -import Control.Monad (guard, void, when) -import Control.Monad.Reader (Reader, asks, runReader) -import Data.Default import Data.Text (Text) import qualified Data.Text as T -import Control.Monad.Except (catchError, throwError) import Data.Time.Format (formatTime) +import Text.Pandoc.Builder (Blocks, Inlines, trimInlines) +import qualified Text.Pandoc.Builder as B import Text.Pandoc.Class (PandocMonad) import qualified Text.Pandoc.Class as P import Text.Pandoc.Compat.Time (defaultTimeLocale) +import Text.Pandoc.Definition +import Text.Pandoc.Options +import Text.Pandoc.Parsing hiding (space, spaces, uri) +import Text.Pandoc.Shared (compactify, compactifyDL, crFilter, escapeURI, + underlineSpan) type T2T = ParserT String ParserState (Reader T2TMeta) |