diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-14 19:03:55 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-14 19:03:55 -0400 |
| commit | fe35c44cd34ceb2a2f02b27f56bf1607557bb89a (patch) | |
| tree | 947cb1a65fa285087e64c14a5c08a9804bc83a7a /src/elaborate.sml | |
| parent | 7b9035e69d65f463da21a82d5f35deebaf1986ac (diff) | |
Crud update form
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 70404cf1..7702e0ff 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -1321,7 +1321,9 @@ fun exhaustive (env, denv, t, ps) = | SOME (_, cons) => dtype cons end | L'.CError => (true, gs) - | _ => raise Fail "isTotal: Not a datatype" + | c => + (prefaces "Not a datatype" [("c", p_con env (c, ErrorMsg.dummySpan))]; + raise Fail "isTotal: Not a datatype") end | Record _ => (List.all (fn c2 => coverageImp (c, c2)) (enumerateCases t), []) in |