X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FHetMet%2FCodeTypes.hs;h=8269686104118e36f721caf33513b7415138fb9d;hb=9404945188d8f4e4daf851c0bc53a61c80b8fdfc;hp=d6291195753ccad07178b4d4e5295b82d46db2c7;hpb=7406d7e6d3e42c96a67fb233e7dc1847b9c64418;p=ghc-base.git

diff --git a/GHC/HetMet/CodeTypes.hs b/GHC/HetMet/CodeTypes.hs
index d629119..8269686 100644
--- a/GHC/HetMet/CodeTypes.hs
+++ b/GHC/HetMet/CodeTypes.hs
@@ -31,7 +31,7 @@ hetmet_csp = Prelude.error "hetmet_csp should never be evaluated; did you forget
 
 hetmet_flatten ::
    forall g .
-    GArrowSTKC g =>
+    GArrowSTKCL g =>
       forall x y.
          <[ x -> y ]>@g
          ->