@@ -158,10 +158,9 @@ blockToOrg (Plain inlines) = inlineListToOrg inlines
158158blockToOrg (Para [Image attr txt (src,'f':'i':'g':':':tit)]) = do
159159 capt <- if null txt
160160 then return empty
161− else (\c -> "#+CAPTION: " <> c <> blankline) `fmap`
162− inlineListToOrg txt
161+ else ("#+CAPTION: " <>) `fmap` inlineListToOrg txt
163162 img <- inlineToOrg (Image attr txt (src,tit))
164− return $ capt <> img
163+ return $ capt $$ img
165164blockToOrg (Para inlines) = do
166165 contents <- inlineListToOrg inlines
167166 return $ contents <> blankline