[project @ 2000-07-14 13:38:39 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnBinds.lhs

diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs
index 33d99ff..ef5596b 100644 (file)
--- a/ghc/compiler/rename/RnBinds.lhs
+++ b/ghc/compiler/rename/RnBinds.lhs
@@ -224,8 +224,8 @@ rnMonoBinds mbinds sigs     thing_inside -- Non-empty monobinds
   =    -- Extract all the binders in this group,
        -- and extend current scope, inventing new names for the new binders
        -- This also checks that the names form a set
-    bindLocatedLocalsRn (text "a binding group") mbinders_w_srclocs
-    $ \ new_mbinders ->
+    bindLocatedLocalsRn (text "a binding group") 
+                       mbinders_w_srclocs      $ \ new_mbinders ->
     let
        binder_set = mkNameSet new_mbinders
     in