@@ -149,6 +149,7 @@ blockToMediaWiki opts (Table capt aligns widths headers rows') = do
149149
150150blockToMediaWiki opts x@(BulletList items) = do
151151 oldUseTags <- get >>= return . stUseTags
152+ listLevel <- get >>= return . stListLevel
152153 let useTags = oldUseTags || not (isSimpleList x)
153154 if useTags
154155 then do
@@ -160,10 +161,11 @@ blockToMediaWiki opts x@(BulletList items) = do
160161 modify $ \s -> s { stListLevel = stListLevel s ++ "*" }
161162 contents <- mapM (listItemToMediaWiki opts) items
162163 modify $ \s -> s { stListLevel = init (stListLevel s) }
163− return $ vcat contents ++ "\n"
164+ return $ vcat contents ++ if null listLevel then "\n" else ""
164165
165166blockToMediaWiki opts x@(OrderedList attribs items) = do
166167 oldUseTags <- get >>= return . stUseTags
168+ listLevel <- get >>= return . stListLevel
167169 let useTags = oldUseTags || not (isSimpleList x)
168170 if useTags
169171 then do
@@ -175,10 +177,11 @@ blockToMediaWiki opts x@(OrderedList attribs items) = do
175177 modify $ \s -> s { stListLevel = stListLevel s ++ "#" }
176178 contents <- mapM (listItemToMediaWiki opts) items
177179 modify $ \s -> s { stListLevel = init (stListLevel s) }
178− return $ vcat contents ++ "\n"
180+ return $ vcat contents ++ if null listLevel then "\n" else ""
179181
180182blockToMediaWiki opts x@(DefinitionList items) = do
181183 oldUseTags <- get >>= return . stUseTags
184+ listLevel <- get >>= return . stListLevel
182185 let useTags = oldUseTags || not (isSimpleList x)
183186 if useTags
184187 then do
@@ -190,7 +193,7 @@ blockToMediaWiki opts x@(DefinitionList items) = do
190193 modify $ \s -> s { stListLevel = stListLevel s ++ ";" }
191194 contents <- mapM (definitionListItemToMediaWiki opts) items
192195 modify $ \s -> s { stListLevel = init (stListLevel s) }
193− return $ vcat contents ++ "\n"
196+ return $ vcat contents ++ if null listLevel then "\n" else ""
194197
195198-- Auxiliary functions for lists:
196199