X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fstranal%2FWwLib.lhs;h=bb06e5092f4d5e5704b9e7d0ca9bae3512e7a334;hb=7483b805d2006658d2c916b6f6695902b2ed0e9c;hp=f79f7d84d2b5c8daf00ec49c282eef5d6f29ceb7;hpb=6c2585f8d52b7d1a879154bbcc5e62f4e9f1af99;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/WwLib.lhs b/ghc/compiler/stranal/WwLib.lhs
index f79f7d8..bb06e50 100644
--- a/ghc/compiler/stranal/WwLib.lhs
+++ b/ghc/compiler/stranal/WwLib.lhs
@@ -239,8 +239,7 @@ mkWrapper fun_ty demands
     in
     getUniques n_wrap_args	`thenUs` \ wrap_uniqs ->
     let
---	(tyvars, tau_ty)   = splitForAllTyExpandingDicts fun_ty
-	(tyvars, tau_ty)   = splitForAllTy fun_ty
+	(tyvars, tau_ty)   = splitForAllTyExpandingDicts fun_ty
 	(arg_tys, body_ty) = splitFunTyExpandingDicts tau_ty
 		-- The "expanding dicts" part here is important, even for the splitForAll
 		-- The imported thing might be a dictionary, such as Functor Foo