@@ -141,7 +141,7 @@ blockToMediaWiki opts x@(BulletList items) = do
141141 modify $ \s -> s { stListLevel = stListLevel s ++ "*" }
142142 contents <- mapM (listItemToMediaWiki opts) items
143143 modify $ \s -> s { stListLevel = init (stListLevel s) }
144− return $ vcat contents
144+ return $ vcat contents ++ "\n"
145145
146146blockToMediaWiki opts x@(OrderedList attribs items) = do
147147 oldUseTags <- get >>= return . stUseTags
@@ -156,7 +156,7 @@ blockToMediaWiki opts x@(OrderedList attribs items) = do
156156 modify $ \s -> s { stListLevel = stListLevel s ++ "#" }
157157 contents <- mapM (listItemToMediaWiki opts) items
158158 modify $ \s -> s { stListLevel = init (stListLevel s) }
159− return $ vcat contents
159+ return $ vcat contents ++ "\n"
160160
161161blockToMediaWiki opts x@(DefinitionList items) = do
162162 oldUseTags <- get >>= return . stUseTags
@@ -171,7 +171,7 @@ blockToMediaWiki opts x@(DefinitionList items) = do
171171 modify $ \s -> s { stListLevel = stListLevel s ++ ";" }
172172 contents <- mapM (definitionListItemToMediaWiki opts) items
173173 modify $ \s -> s { stListLevel = init (stListLevel s) }
174− return $ vcat contents
174+ return $ vcat contents ++ "\n"
175175
176176-- Auxiliary functions for lists:
177177
@@ -251,9 +251,7 @@ tr x = "<tr>\n" ++ x ++ "\n</tr>"
251251
252252-- | Concatenates strings with line breaks between them.
253253vcat :: [String] -> String
254−vcat [] = ""
255−vcat [x] = x
256−vcat (x:xs) = x ++ "\n" ++ vcat xs
254+vcat = intercalate "\n"
257255
258256-- Auxiliary functions for tables:
259257