projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d753d69
)
Use explict layout (fixes breakage when compiling TcSimplify)
author
simonpj@microsoft.com
<unknown>
Mon, 19 Mar 2007 15:19:26 +0000
(15:19 +0000)
committer
simonpj@microsoft.com
<unknown>
Mon, 19 Mar 2007 15:19:26 +0000
(15:19 +0000)
compiler/typecheck/TcSimplify.lhs
patch
|
blob
|
history
diff --git
a/compiler/typecheck/TcSimplify.lhs
b/compiler/typecheck/TcSimplify.lhs
index
7311ae0
..
d433a8c
100644
(file)
--- 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
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
Nothing -> do
-- No use-supplied default
@@
-2334,7
+2334,7
@@
getDefaultTys extended_deflts ovl_strings
++
[integer_ty,doubleTy]
++
++
[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 = []
where
opt_deflt True ty = [ty]
opt_deflt False ty = []