From 4ae461d9af3b408beec775473ef4420f244f922a Mon Sep 17 00:00:00 2001 From: Twan van Laarhoven Date: Thu, 17 Jan 2008 21:15:58 +0000 Subject: [PATCH] Monadify typecheck/TcDefaults: use return and standard monad functions --- compiler/typecheck/TcDefaults.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/typecheck/TcDefaults.lhs b/compiler/typecheck/TcDefaults.lhs index 43f23a3..9da5d96 100644 --- a/compiler/typecheck/TcDefaults.lhs +++ b/compiler/typecheck/TcDefaults.lhs @@ -50,7 +50,7 @@ tcDefaults [] -- 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 $ @@ -61,7 +61,7 @@ tcDefaults [L locn (DefaultDecl mono_tys)] ; 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) } -- 1.7.10.4