@@ -218,8 +218,7 @@ blockToMuse (BulletList items) = do
218218 -> Muse m Doc
219219 bulletListItemToMuse item = do
220220 modify $ \st -> st { stUseTags = False }
221− contents <- blockListToMuse item
222− return $ hang 2 "- " contents
221+ hang 2 "- " <$> blockListToMuse item
223222blockToMuse (DefinitionList items) = do
224223 contents <- mapM definitionListItemToMuse items
225224 -- ensure that sublists have preceding blank line
@@ -231,9 +230,8 @@ blockToMuse (DefinitionList items) = do
231230 definitionListItemToMuse (label, defs) = do
232231 modify $ \st -> st { stUseTags = False }
233232 label' <- local (\env -> env { envOneLine = True, envAfterSpace = True }) $ inlineListToMuse' label
234− contents <- vcat <$> mapM descriptionToMuse defs
235233 let ind = offset label'
236− return $ hang ind (nowrap label') contents
234+ hang ind (nowrap label') . vcat <$> mapM descriptionToMuse defs
237235 descriptionToMuse :: PandocMonad m
238236 => [Block]
239237 -> Muse m Doc