diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-03-20 10:41:55 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-03-20 15:58:32 -0700 |
| commit | ce418667ae8a3e6e5bbf2523eef43edf4f803bcf (patch) | |
| tree | c488d055ff31fe49de81cd36a5a35718964287cc /src/Text/Pandoc/App | |
| parent | 4d041953f56b85d4db241cea11c764856ccbeebe (diff) | |
| download | pandoc-ce418667ae8a3e6e5bbf2523eef43edf4f803bcf.tar.gz | |
Text.Pandoc.Parsing: remove F type synonym.
Muse and Org were defining their own F anyway, with their
own state. We therefore move this definition to the Markdown
reader.
Diffstat (limited to 'src/Text/Pandoc/App')
| -rw-r--r-- | src/Text/Pandoc/App/Opt.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/App/Opt.hs b/src/Text/Pandoc/App/Opt.hs index e5aaec9c5..c72f63464 100644 --- a/src/Text/Pandoc/App/Opt.hs +++ b/src/Text/Pandoc/App/Opt.hs @@ -686,7 +686,8 @@ yamlToMeta (Mapping _ _ m) = either (fail . show) return $ runEverything (yamlMap pMetaString m) where pMetaString = pure . MetaString <$> P.manyChar P.anyChar - runEverything p = runPure (P.readWithM p def "") + runEverything p = + runPure (P.readWithM p (def :: P.ParserState) "") >>= fmap (Meta . flip P.runF def) yamlToMeta _ = return mempty |