diff src/elaborate.sml @ 452:222cbc1da232

Fix some type-class detection
author Adam Chlipala <adamc@hcoop.net>
date Sat, 01 Nov 2008 17:19:12 -0400
parents b77863cd0be2
children f542bc3133dc
line wrap: on
line diff
--- a/src/elaborate.sml	Sat Nov 01 16:50:28 2008 -0400
+++ b/src/elaborate.sml	Sat Nov 01 17:19:12 2008 -0400
@@ -1398,6 +1398,7 @@
         in
             ((L'.CApp (f, x), loc), gs)
         end
+      | L'.CUnif (_, _, _, ref (SOME c)) => normClassConstraint envs c
       | _ => ((c, loc), [])