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

[project @ 2005-08-11 13:10:34 by simonpj]
Ack!  missed one!
---

diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs
index 3c8b4d8..c3c32be 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 (ValBindsIn emptyLHsBinds sigs', usesOnly (hsSigsFVs sigs')) }
+	; return (ValBindsOut emptyLHsBinds sigs', usesOnly (hsSigsFVs sigs')) }
 
 rnTopBindsSrc :: HsValBinds RdrName -> RnM (HsValBinds Name, DefUses)
 rnTopBindsSrc binds@(ValBindsIn mbinds _)