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:
492741c
)
Monadify typecheck/TcDefaults: use return and standard monad functions
author
Twan van Laarhoven
<twanvl@gmail.com>
Thu, 17 Jan 2008 21:15:58 +0000
(21:15 +0000)
committer
Twan van Laarhoven
<twanvl@gmail.com>
Thu, 17 Jan 2008 21:15:58 +0000
(21:15 +0000)
compiler/typecheck/TcDefaults.lhs
patch
|
blob
|
history
diff --git
a/compiler/typecheck/TcDefaults.lhs
b/compiler/typecheck/TcDefaults.lhs
index
43f23a3
..
9da5d96
100644
(file)
--- a/
compiler/typecheck/TcDefaults.lhs
+++ b/
compiler/typecheck/TcDefaults.lhs
@@
-50,7
+50,7
@@
tcDefaults []
-- defaultDefaultTys
tcDefaults [L locn (DefaultDecl [])]
-- defaultDefaultTys
tcDefaults [L locn (DefaultDecl [])]
- = returnM (Just []) -- Default declaration specifying no types
+ = return (Just []) -- Default declaration specifying no types
tcDefaults [L locn (DefaultDecl mono_tys)]
= setSrcSpan locn $
tcDefaults [L locn (DefaultDecl mono_tys)]
= setSrcSpan locn $
@@
-61,7
+61,7
@@
tcDefaults [L locn (DefaultDecl mono_tys)]
; let deflt_clss | ovl_str = [num_class, is_str_class]
| otherwise = [num_class]
; let deflt_clss | ovl_str = [num_class, is_str_class]
| otherwise = [num_class]
- ; tau_tys <- mappM (tc_default_ty deflt_clss) mono_tys
+ ; tau_tys <- mapM (tc_default_ty deflt_clss) mono_tys
; return (Just tau_tys) }
; return (Just tau_tys) }