From 7483b805d2006658d2c916b6f6695902b2ed0e9c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Sep 1997 19:56:14 +0000
Subject: [PATCH] [project @ 1997-09-04 19:56:14 by sof] absApply bug fix

---
 ghc/compiler/stranal/WwLib.lhs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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
-- 
1.7.10.4