From 49fabae45e348e93d25064e469dc777eb3bfc56d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 10 Dec 2003 17:15:44 +0000
Subject: [PATCH] [project @ 2003-12-10 17:15:44 by simonmar] fix bogosity
 spotted by -Wall

---
 ghc/compiler/rename/RnSource.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 93bebe9..c70e7f6 100644
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -246,7 +246,7 @@ of the loop too, and it must be defined in this module.
 rnBindGroups :: [HsBindGroup RdrName] -> RnM ([HsBindGroup Name], DefUses)
 -- This version assumes that the binders are already in scope
 -- It's used only in 'mdo'
-rnBindGropus []
+rnBindGroups []
    = returnM ([], emptyDUs)
 rnBindGroups [HsBindGroup bind sigs _]
    = rnBinds NotTopLevel bind sigs
-- 
1.7.10.4