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 f79f7d84d2b5..bb06e5092f4d 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
--
GitLab