@@ -288,7 +288,9 @@ 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' <- case caption of
292+ Nothing -> return Nothing
291− caption' <- mapM (parseFromString inlines . (++ "\n")) caption
293+ Just s -> Just <$> parseFromString inlines (s ++ "\n")
292 kvAttrs' <- parseFromString keyValues . (++ "\n") $ fromMaybe mempty kvAttrs
294 kvAttrs' <- parseFromString keyValues . (++ "\n") $ fromMaybe mempty kvAttrs
293 return $ BlockAttributes
295 return $ BlockAttributes
294 { blockAttrName = name
296 { blockAttrName = name