From fd62921351ddfcc3c4deba3e42065aea27fe6a0a Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 11 Aug 2005 13:11:52 +0000 Subject: [PATCH] [project @ 2005-08-11 13:11:52 by simonpj] Ack! Ack! --- ghc/compiler/rename/RnBinds.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs index c3c32be..96ce11b 100644 --- a/ghc/compiler/rename/RnBinds.lhs +++ b/ghc/compiler/rename/RnBinds.lhs @@ -174,7 +174,7 @@ rnTopBindsBoot :: HsValBinds RdrName -> RnM (HsValBinds Name, DefUses) rnTopBindsBoot (ValBindsIn mbinds sigs) = do { checkErr (isEmptyLHsBinds mbinds) (bindsInHsBootFile mbinds) ; sigs' <- renameSigs okHsBootSig sigs - ; return (ValBindsOut emptyLHsBinds sigs', usesOnly (hsSigsFVs sigs')) } + ; return (ValBindsOut [] sigs', usesOnly (hsSigsFVs sigs')) } rnTopBindsSrc :: HsValBinds RdrName -> RnM (HsValBinds Name, DefUses) rnTopBindsSrc binds@(ValBindsIn mbinds _) -- 1.7.10.4