Handle introduction of MkCore in MatchCon

[ghc-hetmet.git] / compiler / deSugar / DsBinds.lhs

diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs
index 2ecbd0e..b1b77d0 100644 (file)
--- a/compiler/deSugar/DsBinds.lhs
+++ b/compiler/deSugar/DsBinds.lhs
@@ -26,6 +26,7 @@ import DsUtils
 
 import HsSyn           -- lots of things
 import CoreSyn         -- lots of things
+import MkCore
 import CoreUtils
 import CoreFVs
 
@@ -346,9 +347,9 @@ dsSpec all_tvs dicts tvs poly_id mono_id mono_bind
          case mb_lhs of
            Nothing -> do { warnDs decomp_msg; return Nothing }
 
-           Just (_, args) -> do
-       
-       { f_body <- fix_up (Let mono_bind (Var mono_id))
+           Just (_, args) -> do {
+
+         f_body <- fix_up (Let mono_bind (Var mono_id))
 
        ; let     local_poly  = setIdNotExported poly_id
                        -- Very important to make the 'f' non-exported,