Commit 49fabae4 authored by simonmar's avatar simonmar
Browse files

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

fix bogosity spotted by -Wall
parent 76465093
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment