Skip to content
Snippets Groups Projects
Commit 9d206e1a authored by Oleg Grenrus's avatar Oleg Grenrus
Browse files

Make ident parser accept dash again

parent e1ca4f4d
No related branches found
No related tags found
No related merge requests found
......@@ -211,7 +211,7 @@ buildPlatform = Platform buildArch buildOS
ident :: Parse.ReadP r String
ident = liftM2 (:) first rest
where first = Parse.satisfy Char.isAlpha
rest = Parse.munch (\c -> Char.isAlphaNum c || c == '_')
rest = Parse.munch (\c -> Char.isAlphaNum c || c == '_' || c == '-')
dashlessIdent :: Parse.ReadP r String
dashlessIdent = liftM2 (:) first rest
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment