@@ -146,7 +146,7 @@ fieldListItem :: String -> GenParser Char st ([Char], [Char])
146fieldListItem indent = try $ do
146fieldListItem indent = try $ do
147 string indent
147 string indent
149− name <- many1 alphaNum
149+ name <- many1 $ alphaNum <|> spaceChar
150 string ": "
150 string ": "
151 skipSpaces
151 skipSpaces
152 first <- manyTill anyChar newline
152 first <- manyTill anyChar newline