Mercurial > urweb

diff src/elab_env.sml @ 452:222cbc1da232

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix some type-class detection
author Adam Chlipala <adamc@hcoop.net>
date Sat, 01 Nov 2008 17:19:12 -0400
parents 85819353a84f
children f542bc3133dc
line wrap: on
line diff
--- a/src/elab_env.sml	Sat Nov 01 16:50:28 2008 -0400
+++ b/src/elab_env.sml	Sat Nov 01 17:19:12 2008 -0400
@@ -419,6 +419,7 @@
         (case (class_name_in f, class_key_in x) of
              (SOME f, SOME x) => SOME (f, x)
            | _ => NONE)
+      | CUnif (_, _, _, ref (SOME c)) => class_pair_in c
       | _ => NONE
 
 fun resolveClass (env : env) c =