diff options
author | John MacFarlane <jgm@berkeley.edu> | 2019-09-28 12:36:09 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2019-09-28 12:36:09 -0700 |
commit | df74eea69a73ecf446b615189537be831d50952e (patch) | |
tree | 28061698cb79508b5c93ecf4bd9b424e5f9915ed /src/Text/Pandoc/Readers | |
parent | c86691fb84ec830086bc9b5e54b1ec8e41d160c8 (diff) | |
download | pandoc-df74eea69a73ecf446b615189537be831d50952e.tar.gz |
Use throwError instead of fail when appropriate.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index e00604ea0..46220acc8 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -258,10 +258,11 @@ yamlBsToMeta bstr = do err' pos return . return $ mempty -nodeToKey :: Monad m => YAML.Node YE.Pos -> m Text +nodeToKey :: PandocMonad m => YAML.Node YE.Pos -> m Text nodeToKey (YAML.Scalar _ (YAML.SStr t)) = return t nodeToKey (YAML.Scalar _ (YAML.SUnknown _ t)) = return t -nodeToKey _ = Prelude.fail "Non-string key in YAML mapping" +nodeToKey _ = throwError $ PandocParseError + "Non-string key in YAML mapping" toMetaValue :: PandocMonad m => Text -> MarkdownParser m (F MetaValue) |