X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FHaskWeakToCore.v;h=1194251c394191dc201ebc3063d8cc3388021dec;hp=7d0fac42e77fdb5138319a81554cdafc087e8990;hb=10713ada476b463a3b25ffd0f0f17315f5fd72a3;hpb=5cfd103cffd56381262b2d280cbba88e0932f78a

diff --git a/src/HaskWeakToCore.v b/src/HaskWeakToCore.v
index 7d0fac4..1194251 100644
--- a/src/HaskWeakToCore.v
+++ b/src/HaskWeakToCore.v
@@ -20,7 +20,7 @@ Variable mkCoreLet : @CoreBind CoreVar -> @CoreExpr CoreVar -> @CoreExpr CoreVar
   Extract Inlined Constant mkCoreLet => "MkCore.mkCoreLet".
 
 Variable sortAlts  : forall {a}{b}, list (@triple AltCon a b) -> list (@triple AltCon a b).
-  Extract Inlined Constant mkCoreLet => "sortAlts".
+  Extract Inlined Constant sortAlts => "sortAlts".
   Implicit Arguments sortAlts [[a][b]].
 
 Variable trustMeCoercion           : CoreCoercion.