@@ -173,7 +173,7 @@ blockToRST (Para [Image txt (src,'f':'i':'g':':':tit)]) = do
173 capt <- inlineListToRST txt
173 capt <- inlineListToRST txt
174 let fig = "figure:: " <> text src
174 let fig = "figure:: " <> text src
175 let alt = ":alt: " <> if null tit then capt else text tit
175 let alt = ":alt: " <> if null tit then capt else text tit
176− return $ hang 3 ".. " $ fig $$ alt $+$ capt $$ blankline
176+ return $ hang 3 ".. " (fig $$ alt $+$ capt) $$ blankline
177blockToRST (Para inlines)
177blockToRST (Para inlines)
178 | LineBreak `elem` inlines = do -- use line block if LineBreaks
178 | LineBreak `elem` inlines = do -- use line block if LineBreaks
179 lns <- mapM inlineListToRST $ splitBy (==LineBreak) inlines
179 lns <- mapM inlineListToRST $ splitBy (==LineBreak) inlines