diff options
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 |