projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
DEBUG removal
[ghc-hetmet.git]
/
compiler
/
typecheck
/
TcDefaults.lhs
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) }