@@ -151,13 +151,12 @@ rawFieldListItem :: String -> Parser [Char] ParserState (String, String)
151151rawFieldListItem indent = try $ do
152152 string indent
153153 char ':'
154− name <- many1 $ noneOf ":"
155− char ':'
154+ name <- many1Till (noneOf "\n") (char ':')
156155 skipSpaces
157156 first <- manyTill anyChar newline
158157 rest <- option "" $ try $ do lookAhead (string indent >> spaceChar)
159158 indentedBlock
160− let raw = first ++ "\n" ++ rest ++ "\n"
159+ let raw = (if null first then "" else (first ++ "\n")) ++ rest ++ "\n"
161160 return (name, raw)
162161
163162fieldListItem :: String