summaryrefslogtreecommitdiff
path: root/src/elaborate.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2010-10-10 20:33:10 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2010-10-10 20:33:10 -0400
commit4e608544ebe87dd991d53ded5267f14f5df93b8b (patch)
tree4de957d9837f39c79ebc56b5ac2935e31a28d0b5 /src/elaborate.sml
parent42d55420b84994ee61c0a4645d21d275dbbea2cd (diff)
:::_ notation; switch to TooDeep error message
Diffstat (limited to 'src/elaborate.sml')
-rw-r--r--src/elaborate.sml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml
index 7bf687e2..dcae4650 100644
--- a/src/elaborate.sml
+++ b/src/elaborate.sml
@@ -1079,13 +1079,13 @@
err COccursCheckFailed
else
(r := SOME (squish nl c2All)
- handle CantSquish => err CIncompatible)
+ handle CantSquish => err (fn _ => TooDeep))
| (_, L'.CUnif (nl, _, _, _, r)) =>
if occursCon r c1All then
err COccursCheckFailed
else
(r := SOME (squish nl c1All)
- handle CantSquish => err CIncompatible)
+ handle CantSquish => err (fn _ => TooDeep))
| (L'.CUnit, L'.CUnit) => ()