From: simonpj <unknown>
Date: Thu, 11 Aug 2005 13:11:52 +0000 (+0000)
Subject: [project @ 2005-08-11 13:11:52 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~245
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fd62921351ddfcc3c4deba3e42065aea27fe6a0a;p=ghc-hetmet.git

[project @ 2005-08-11 13:11:52 by simonpj]
Ack! Ack!
---

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 _)