@@ -36,6 +36,7 @@ program pkg src =
3636 Result.throw syntaxError
3737
3838
39+
3940-- CHOMP PROGRAMS
4041
4142
@@ -69,8 +70,8 @@ chompDeclarations decls =
6970
7071chompInfixes :: [Src.Decl] -> P.Parser [Src.Decl]
7172chompInfixes decls =
72− do decl <- Decl.infix_
73− P.oneOf
74− [ chompInfixes (decl:decls)
75− , return (decl:decls)
76− ]
73+ P.oneOf
74+ [ do decl <- Decl.infix_
75+ chompInfixes (decl:decls)
76+ , return decls
77+ ]