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.Default
import Data.List (isInfixOf, isPrefixOf) import Data.List (isInfixOf, isPrefixOf)
import Data.Maybe import Data.Maybe
import Data.Text (Text, unpack) import Data.Text (Text)
import Text.Pandoc.Builder (Blocks, Inlines, fromList, toList, trimInlines) import Text.Pandoc.Builder (Blocks, Inlines, fromList, toList, trimInlines)
import qualified Text.Pandoc.Builder as B (blockQuote, bulletList, code, import qualified Text.Pandoc.Builder as B (blockQuote, bulletList, code,
codeBlockWith, definitionList, codeBlockWith, definitionList,
@ -101,13 +101,12 @@ import Text.Parsec.Prim (getState, many, try, updateState, (<|>))
readVimwiki :: PandocMonad m => ReaderOptions -> Text -> m Pandoc readVimwiki :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
readVimwiki opts s = do readVimwiki opts s = do
res <- readWithM parseVimwiki def{ stateOptions = opts } res <- readWithM parseVimwiki def{ stateOptions = opts } $ crFilter s
(unpack (crFilter s))
case res of case res of
Left e -> throwError e Left e -> throwError e
Right result -> return result Right result -> return result
type VwParser = ParserT [Char] ParserState type VwParser = ParserT Text ParserState
-- constants -- constants