diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-06-02 15:43:18 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-02 15:43:18 -0400 |
| commit | 1fd04be40e1f4885753a269b898d1bd11d24672d (patch) | |
| tree | 21f39be7fbc2225c46cc3c4c36d1aae274d1382f /src/elaborate.sml | |
| parent | e103ad374e8cb7ea52e27c517fca761b9810028a (diff) | |
Tweak -- precedence; use right env for final exhaustiveness errors
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 2 |
1 files changed, 1 insertions, 1 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))) |