Merge branch 'master' into type-nats
[ghc.git] / compiler / typecheck / TcSplice.lhs
index c3085d7..1771857 100644 (file)
@@ -970,7 +970,7 @@ lookupClassInstances c ts
 
        -- Now look up instances
         ; inst_envs <- tcGetInstEnvs
-        ; let (matches, unifies) = lookupInstEnv inst_envs cls tys
+        ; let (matches, unifies, _) = lookupInstEnv inst_envs cls tys
         ; mapM reifyClassInstance (map fst matches ++ unifies) } } }
   where
     doc = ptext (sLit "TcSplice.classInstances")