on master help sign in
Make sure you allow . as a name character
a928322Neil Mitchell
gen/Parser.hs+1−1
@@ -13,7 +13,7 @@ data Out
13
13
14is lower upper x = x >= lower && x <= upper
14is lower upper x = x >= lower && x <= upper
15isName1 x = x == ':' || x == '_' || is 'a' 'z' x || is 'A' 'Z' x
15isName1 x = x == ':' || x == '_' || is 'a' 'z' x || is 'A' 'Z' x
16−isName x = isName1 x || x == '-' || is '0' '9' x
16+isName x = isName1 x || x == '-' || x == '.' || is '0' '9' x
17isSpace x = x == ' ' || x == '\t' || x == '\r' || x == '\n'
17isSpace x = x == ' ' || x == '\t' || x == '\r' || x == '\n'
18
18
19whitespace = many $ match isSpace
19whitespace = many $ match isSpace