From f6ff984bd9a556b547760fd09971fd5e023af189 Mon Sep 17 00:00:00 2001 From: Twan van Laarhoven Date: Thu, 17 Jan 2008 17:41:30 +0000 Subject: [PATCH] Monadify deSugar/Desugar: use do, return, applicative, standard monad functions --- compiler/deSugar/Desugar.lhs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs index 4ee9d43..f9e6212 100644 --- a/compiler/deSugar/Desugar.lhs +++ b/compiler/deSugar/Desugar.lhs @@ -41,7 +41,6 @@ import Maybes import FastString import Pretty ( Doc ) import Coverage -import IOEnv import Data.IORef \end{code} @@ -95,7 +94,7 @@ deSugar hsc_env { core_prs <- dsTopLHsBinds auto_scc binds_cvr ; (ds_fords, foreign_prs) <- dsForeigns fords ; let all_prs = foreign_prs ++ core_prs - ; ds_rules <- mappM dsRule rules + ; ds_rules <- mapM dsRule rules ; return (all_prs, catMaybes ds_rules, ds_fords, ds_hpc_info, modBreaks) } ; case mb_res of { -- 1.7.10.4