From: simonmar <unknown>
Date: Wed, 10 Dec 2003 17:15:44 +0000 (+0000)
Subject: [project @ 2003-12-10 17:15:44 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~210
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=49fabae45e348e93d25064e469dc777eb3bfc56d;p=ghc-hetmet.git

[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
--- 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