X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsBinds.lhs;h=b1b77d0b08baed257e72d33d58bf97f7ddc2be58;hb=cec9b62f2ccdd358aa1d99c4143794b541b87f7e;hp=2ecbd0e93f1fe0cac2e260345a1249bfaa34c892;hpb=a3f24157839605f19e869fdde8cd73266fecf4ac;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs
index 2ecbd0e..b1b77d0 100644
--- 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,