Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Vimwiki reader: parse Text without converting to [Char]

Browse source
This commit is contained in:
Alexander Krotov 2018-10-31 12:58:49 +03:00 committed by John MacFarlane
parent 5686bdfc97
commit 9a004b86c9
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Readers/Vimwiki.hs
View file

@ -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