@@ -10,7 +10,7 @@ import Text.Parsec.String
10ruleParser :: Parser (String, String)
10ruleParser :: Parser (String, String)
11ruleParser = do
11ruleParser = do
12 p <- many1 (noneOf ":") <* char ':'
12 p <- many1 (noneOf ":") <* char ':'
13− v <- many1 (noneOf ":;") <* char ';' <* spaces
13+ v <- many1 (noneOf ":;") <* (optional $ char ';') <* spaces
14 return (trim p, trim v)
14 return (trim p, trim v)
16styleAttrParser :: Parser [(String, String)]
16styleAttrParser :: Parser [(String, String)]