@@ -288,7 +288,7 @@ blockAttributes = try $ do
288 let kvAttrs = foldl' (appendValues "ATTR_HTML") Nothing kv
288 let kvAttrs = foldl' (appendValues "ATTR_HTML") Nothing kv
289 let name = lookup "NAME" kv
289 let name = lookup "NAME" kv
290 let label = lookup "LABEL" kv
290 let label = lookup "LABEL" kv
291− caption' <- sequence (parseFromString inlines . (++ "\n") <$> caption)
291+ caption' <- mapM (parseFromString inlines . (++ "\n")) caption
292 kvAttrs' <- parseFromString keyValues . (++ "\n") $ fromMaybe mempty kvAttrs
292 kvAttrs' <- parseFromString keyValues . (++ "\n") $ fromMaybe mempty kvAttrs
293 return $ BlockAttributes
293 return $ BlockAttributes
294 { blockAttrName = name
294 { blockAttrName = name