@@ -456,15 +456,16 @@ definitionListItem = try $ do
456 return ((normalizeSpaces term), contents)
456 return ((normalizeSpaces term), contents)
458defRawBlock = try $ do
458defRawBlock = try $ do
459− indentSpaces
459+ rawlines <- many1 (do {notFollowedBy' blankline; indentSpaces; anyLine})
461− rest <- manyTill (do {option "" (try indentSpaces);
462− anyLine}) blanklines
460+ trailing <- option "" blanklines
463− return $ (unlines (first:rest)) ++ "\n"
461+ return $ (unlines rawlines) ++ trailing
465definitionList = do
463definitionList = do
466 items <- many1 definitionListItem
464 items <- many1 definitionListItem
465+ let (terms, defs) = unzip items
466+ let defs' = compactify defs
467+ let items' = zip terms defs'
467− return $ DefinitionList items
468+ return $ DefinitionList items'
470-- paragraph block
471-- paragraph block