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