aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Native.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Native.hs b/src/Text/Pandoc/Readers/Native.hs
index 3e934e43f..1953c0c83 100644
--- a/src/Text/Pandoc/Readers/Native.hs
+++ b/src/Text/Pandoc/Readers/Native.hs
@@ -32,6 +32,7 @@ module Text.Pandoc.Readers.Native ( readNative ) where
import Text.Pandoc.Definition
import Text.Pandoc.Shared (safeRead)
+import Text.Pandoc.Options (ReaderOptions)
import Control.Monad.Except (throwError)
import Text.Pandoc.Error
@@ -48,9 +49,10 @@ import Text.Pandoc.Class
-- > Pandoc nullMeta [Plain [Str "hi"]]
--
readNative :: PandocMonad m
- => String -- ^ String to parse (assuming @'\n'@ line endings)
+ => ReaderOptions
+ -> String -- ^ String to parse (assuming @'\n'@ line endings)
-> m Pandoc
-readNative s =
+readNative _ s =
case maybe (Pandoc nullMeta <$> readBlocks s) Right (safeRead s) of
Right doc -> return doc
Left _ -> throwError $ PandocParseError "couldn't read native"