@@ -1,4 +1,5 @@
11{-# LANGUAGE NoImplicitPrelude #-}
2+{-# LANGUAGE OverloadedStrings #-}
23{-
34 Copyright (C) 2017 Sascha Wilde <wilde@sha-bang.de>
45
@@ -41,7 +42,6 @@ import Control.Monad.Except (guard, liftM2, throwError)
4142import qualified Data.Foldable as F
4243import Data.Maybe (fromMaybe)
4344import Data.Text (Text)
44−import qualified Data.Text as T
4545import qualified Text.Pandoc.Builder as B
4646import Text.Pandoc.Class (PandocMonad (..))
4747import Text.Pandoc.Definition
@@ -56,13 +56,12 @@ readCreole :: PandocMonad m
5656 -> Text
5757 -> m Pandoc
5858readCreole opts s = do
59− res <- readWithM parseCreole def{ stateOptions = opts }
60− (T.unpack (crFilter s) ++ "\n\n")
59+ res <- readWithM parseCreole def{ stateOptions = opts } $ crFilter s <> "\n\n"
6160 case res of
6261 Left e -> throwError e
6362 Right d -> return d
6463
65−type CRLParser = ParserT [Char] ParserState
64+type CRLParser = ParserT Text ParserState
6665
6766--
6867-- Utility functions