From e6ffe148a17c93e05b410cb49bcc868f9d72c807 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=96mer=20Sinan=20A=C4=9Facan?= <omeragacan@gmail.com>
Date: Fri, 1 Nov 2019 11:21:49 +0300
Subject: TidyPgm: replace an explicit loop with mapAccumL

---
 compiler/main/TidyPgm.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'compiler')

diff --git a/compiler/main/TidyPgm.hs b/compiler/main/TidyPgm.hs
index f0dbc6734b..ae491ac02d 100644
--- a/compiler/main/TidyPgm.hs
+++ b/compiler/main/TidyPgm.hs
@@ -63,7 +63,7 @@ import qualified ErrUtils as Err
 
 import Control.Monad
 import Data.Function
-import Data.List        ( sortBy )
+import Data.List        ( sortBy, mapAccumL )
 import Data.IORef       ( atomicModifyIORef' )
 
 {-
@@ -1089,12 +1089,7 @@ tidyTopBinds hsc_env this_mod unfold_env init_occ_env binds
 
     init_env = (init_occ_env, emptyVarEnv)
 
-    tidy _           env []     = (env, [])
-    tidy cvt_literal env (b:bs)
-        = let (env1, b')  = tidyTopBind dflags this_mod cvt_literal unfold_env
-                                        env b
-              (env2, bs') = tidy cvt_literal env1 bs
-          in  (env2, b':bs')
+    tidy cvt_literal = mapAccumL (tidyTopBind dflags this_mod cvt_literal unfold_env)
 
 ------------------------
 tidyTopBind  :: DynFlags
-- 
cgit v1.2.1