@@ -581,7 +581,7 @@ directive' = do
581 "figure" -> do
581 "figure" -> do
582 (caption, legend) <- parseFromString extractCaption body'
582 (caption, legend) <- parseFromString extractCaption body'
583 let src = escapeURI $ trim top
583 let src = escapeURI $ trim top
584− return $ B.para (B.image src "" caption) <> legend
584+ return $ B.para (B.image src "fig:" caption) <> legend
585 "image" -> do
585 "image" -> do
586 let src = escapeURI $ trim top
586 let src = escapeURI $ trim top
587 let alt = B.str $ maybe "image" trim $ lookup "alt" fields
587 let alt = B.str $ maybe "image" trim $ lookup "alt" fields