From f8d2c44cedbfef40cc9b6497ad8f62bb090c02c8 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Mon, 19 Mar 2007 15:19:26 +0000
Subject: [PATCH] Use explict layout (fixes breakage when compiling
 TcSimplify)

---
 compiler/typecheck/TcSimplify.lhs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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 = []
-- 
1.7.10.4