aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-10-18 16:00:08 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2016-10-18 16:03:34 +0200
commit3747abf02947beeab00b8d76def538e224ecd7f7 (patch)
tree9ff4031eb69cd362136bfa04dee65c16def10e38 /src
parent13ff73bc70bcee3ea55205540b342ddb23579164 (diff)
downloadpandoc-3747abf02947beeab00b8d76def538e224ecd7f7.tar.gz
Try to fix build error on ghc 7.8.
@tarleb this is an interesting one, see the build log in https://travis-ci.org/jgm/pandoc/jobs/168612017 It only failed on ghc 7.8; I think this must have to do with the change making Monad a superclass of Applicative, hence this change.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Org/Blocks.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs
index 8d22beb33..9b549e3b3 100644
--- a/src/Text/Pandoc/Readers/Org/Blocks.hs
+++ b/src/Text/Pandoc/Readers/Org/Blocks.hs
@@ -288,7 +288,7 @@ blockAttributes = try $ do
let kvAttrs = foldl' (appendValues "ATTR_HTML") Nothing kv
let name = lookup "NAME" kv
let label = lookup "LABEL" kv
- caption' <- sequence (parseFromString inlines . (++ "\n") <$> caption)
+ caption' <- mapM (parseFromString inlines . (++ "\n")) caption
kvAttrs' <- parseFromString keyValues . (++ "\n") $ fromMaybe mempty kvAttrs
return $ BlockAttributes
{ blockAttrName = name