From: simonpj@microsoft.com <unknown>
Date: Mon, 19 Mar 2007 15:19:26 +0000 (+0000)
Subject: Use explict layout (fixes breakage when compiling TcSimplify)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f8d2c44cedbfef40cc9b6497ad8f62bb090c02c8;hp=d753d69a65e5acd860f626a6d2f6b86b75289066

Use explict layout (fixes breakage when compiling TcSimplify)
---

diff --git a/compiler/typecheck/TcSimplify.lhs b/compiler/typecheck/TcSimplify.lhs
index 7311ae0..d433a8c 100644
--- a/compiler/typecheck/TcSimplify.lhs
+++ b/compiler/typecheck/TcSimplify.lhs
@@ -2320,8 +2320,8 @@ disambigGroup default_tys dicts
 getDefaultTys :: Bool -> Bool -> TcM [Type]
 getDefaultTys extended_deflts ovl_strings
   = do	{ mb_defaults <- getDeclaredDefaultTys
-	; case mb_defaults of
-	   Just tys -> return tys	-- User-supplied defaults
+	; case mb_defaults of {
+	   Just tys -> return tys ;	-- User-supplied defaults
 	   Nothing  -> do
 
 	-- No use-supplied default
@@ -2334,7 +2334,7 @@ getDefaultTys extended_deflts ovl_strings
 			++
 		  [integer_ty,doubleTy]
 			++
-		  opt_deflt ovl_strings string_ty) }}
+		  opt_deflt ovl_strings string_ty) } } }
   where
     opt_deflt True  ty = [ty]
     opt_deflt False ty = []