[project @ 2003-12-10 17:15:44 by simonmar]

fix bogosity spotted by -Wall

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 93bebe9..c70e7f6 100644 (file)
--- 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