git.iko.soy/elk
on master help sign in
Allow ZERO or more infix ops in core libraries
bc1f2f0Evan Czaplicki
src/Parse/Parse.hs+6−5
compare with master
unifiedsplit
@@ -36,6 +36,7 @@ program pkg src =
36 Result.throw syntaxError
36 Result.throw syntaxError
37
37
38
38
39+
39-- CHOMP PROGRAMS
40-- CHOMP PROGRAMS
40
41
41
42
@@ -69,8 +70,8 @@ chompDeclarations decls =
69
70
70chompInfixes :: [Src.Decl] -> P.Parser [Src.Decl]
71chompInfixes :: [Src.Decl] -> P.Parser [Src.Decl]
71chompInfixes decls =
72chompInfixes decls =
73+ P.oneOf
72− do decl <- Decl.infix_
74+ [ do decl <- Decl.infix_
73− P.oneOf
74− [ chompInfixes (decl:decls)
75+ chompInfixes (decl:decls)
75− , return (decl:decls)
76+ , return decls
76− ]
77+ ]