@@ -151,8 +151,8 @@ rawFieldListItem :: String -> Parser [Char] ParserState (String, String)
151rawFieldListItem indent = try $ do
151rawFieldListItem indent = try $ do
152 string indent
152 string indent
154− name <- many1 $ alphaNum <|> spaceChar
154+ name <- many1 $ noneOf ":"
155− string ": "
155+ char ':'
156 skipSpaces
156 skipSpaces
157 first <- manyTill anyChar newline
157 first <- manyTill anyChar newline
158 rest <- option "" $ try $ do lookAhead (string indent >> spaceChar)
158 rest <- option "" $ try $ do lookAhead (string indent >> spaceChar)