[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 (file)
--- 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