Make sure you allow . as a name character
commita928322aba6ee8a9146bb0842d9584ddf66ec808
authorNeil Mitchell <ndmitchell@gmail.com>
dateThu 4 Jan 2018, 22:48 (9 years ago)
parentab5b409
gen/Parser.hs+1−1
@@ -13,7 +13,7 @@ data Out
1313
1414is lower upper x = x >= lower && x <= upper
1515isName1 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
1717isSpace x = x == ' ' || x == '\t' || x == '\r' || x == '\n'
1818
1919whitespace = many $ match isSpace