@@ -166,8 +166,8 @@ blockToOrg (LineBlock lns) = do
166 (l, _:r) -> l : splitStanza r
166 (l, _:r) -> l : splitStanza r
167 let joinWithLinefeeds = nowrap . mconcat . intersperse cr
167 let joinWithLinefeeds = nowrap . mconcat . intersperse cr
168 let joinWithBlankLines = mconcat . intersperse blankline
168 let joinWithBlankLines = mconcat . intersperse blankline
169− let prettyfyStanza ls = joinWithLinefeeds <$> mapM inlineListToOrg ls
169+ let prettifyStanza ls = joinWithLinefeeds <$> mapM inlineListToOrg ls
170− contents <- joinWithBlankLines <$> mapM prettyfyStanza (splitStanza lns)
170+ contents <- joinWithBlankLines <$> mapM prettifyStanza (splitStanza lns)
171 return $ blankline $$ "#+BEGIN_VERSE" $$
171 return $ blankline $$ "#+BEGIN_VERSE" $$
172 nest 2 contents $$ "#+END_VERSE" <> blankline
172 nest 2 contents $$ "#+END_VERSE" <> blankline
173blockToOrg (RawBlock "html" str) =
173blockToOrg (RawBlock "html" str) =