[project @ 2005-08-11 13:10:34 by simonpj]
authorsimonpj <unknown>
Thu, 11 Aug 2005 13:10:34 +0000 (13:10 +0000)
committersimonpj <unknown>
Thu, 11 Aug 2005 13:10:34 +0000 (13:10 +0000)
Ack!  missed one!

ghc/compiler/rename/RnBinds.lhs

index 3c8b4d8..c3c32be 100644 (file)
@@ -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 _)