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.
commit3747abf02947beeab00b8d76def538e224ecd7f7
authorJohn MacFarlane <jgm@berkeley.edu>
dateTue 18 Oct 2016, 16:00 (10 years ago)
parent13ff73b
src/Text/Pandoc/Readers/Org/Blocks.hs+1−1
@@ -288,7 +288,7 @@ blockAttributes = try $ do
288288 let kvAttrs = foldl' (appendValues "ATTR_HTML") Nothing kv
289289 let name = lookup "NAME" kv
290290 let label = lookup "LABEL" kv
291− caption' <- sequence (parseFromString inlines . (++ "\n") <$> caption)
291+ caption' <- mapM (parseFromString inlines . (++ "\n")) caption
292292 kvAttrs' <- parseFromString keyValues . (++ "\n") $ fromMaybe mempty kvAttrs
293293 return $ BlockAttributes
294294 { blockAttrName = name