diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/elaborate.sml | 2 | ||||
| -rw-r--r-- | src/urweb.grm | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 87c1eb27..64b690ef 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -3975,7 +3975,7 @@ fun elabFile basis topStr topSgn env file = if ErrorMsg.anyErrors () then () else - app (fn all as (_, _, _, loc) => + app (fn all as (env, _, _, loc) => case exhaustive all of NONE => () | SOME p => expError env (Inexhaustive (loc, p))) diff --git a/src/urweb.grm b/src/urweb.grm index 8cdf8063..1bb5da58 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -375,7 +375,8 @@ fun patType loc (p : pat) = %right CAND %nonassoc EQ NE LT LE GT GE IS %right ARROW -%right CARET PLUSPLUS MINUSMINUS MINUSMINUSMINUS +%right CARET PLUSPLUS +%left MINUSMINUS MINUSMINUSMINUS %left PLUS MINUS %left STAR DIVIDE MOD %left NOT |