From: sof <unknown>
Date: Thu, 4 Sep 1997 19:56:14 +0000 (+0000)
Subject: [project @ 1997-09-04 19:56:14 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~23
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7483b805d2006658d2c916b6f6695902b2ed0e9c

[project @ 1997-09-04 19:56:14 by sof]
absApply bug fix
---

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