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

diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs
index 2ecbd0e..57bbd02 100644
--- a/compiler/deSugar/DsBinds.lhs
+++ b/compiler/deSugar/DsBinds.lhs
@@ -346,9 +346,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,