From 9a004b86c92119a499d91ae075b5e68c81136795 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Wed, 31 Oct 2018 12:58:49 +0300 Subject: Vimwiki reader: parse Text without converting to [Char] --- src/Text/Pandoc/Readers/Vimwiki.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Readers/Vimwiki.hs b/src/Text/Pandoc/Readers/Vimwiki.hs index 6fdbcb50e..7edc50bff 100644 --- a/src/Text/Pandoc/Readers/Vimwiki.hs +++ b/src/Text/Pandoc/Readers/Vimwiki.hs @@ -71,7 +71,7 @@ import Control.Monad.Except (throwError) import Data.Default import Data.List (isInfixOf, isPrefixOf) import Data.Maybe -import Data.Text (Text, unpack) +import Data.Text (Text) import Text.Pandoc.Builder (Blocks, Inlines, fromList, toList, trimInlines) import qualified Text.Pandoc.Builder as B (blockQuote, bulletList, code, codeBlockWith, definitionList, @@ -101,13 +101,12 @@ import Text.Parsec.Prim (getState, many, try, updateState, (<|>)) readVimwiki :: PandocMonad m => ReaderOptions -> Text -> m Pandoc readVimwiki opts s = do - res <- readWithM parseVimwiki def{ stateOptions = opts } - (unpack (crFilter s)) + res <- readWithM parseVimwiki def{ stateOptions = opts } $ crFilter s case res of Left e -> throwError e Right result -> return result -type VwParser = ParserT [Char] ParserState +type VwParser = ParserT Text ParserState -- constants -- cgit v1.2.3