diff options
| -rw-r--r-- | src/Text/Pandoc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index 0330c46e2..cd93e0b7b 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -191,7 +191,7 @@ parseFormatSpec = parse formatSpec "" where formatSpec = do name <- formatName extMods <- many extMod - return (name, foldl (.) id extMods) + return (name, \x -> foldl (flip ($)) x extMods) formatName = many1 $ noneOf "-+" extMod = do polarity <- oneOf "-+" |