From: Twan van Laarhoven <twanvl@gmail.com>
Date: Thu, 17 Jan 2008 20:21:44 +0000 (+0000)
Subject: Remove generic monad function from State, it was moved to MonadUtils
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=28ddef074b70a555c595f7f42ff97765d221b8eb;hp=bc845b714132a897032502536fea8cd018ce325b;p=ghc-hetmet.git

Remove generic monad function from State, it was moved to MonadUtils
---

diff --git a/compiler/utils/State.hs b/compiler/utils/State.hs
index f28a8ef..b8fcaa1 100644
--- a/compiler/utils/State.hs
+++ b/compiler/utils/State.hs
@@ -46,18 +46,3 @@ execState s i = case runState' s i of
 runState :: State s a -> s -> (a, s)
 runState s i = case runState' s i of
                (# a, s' #) -> (a, s')
-
-
-mapAccumLM
-        :: Monad m
-        => (acc -> x -> m (acc, y))     -- ^ combining funcction
-        -> acc                          -- ^ initial state
-        -> [x]                          -- ^ inputs
-        -> m (acc, [y])                 -- ^ final state, outputs
-
-mapAccumLM _ s [] = return (s, [])
-mapAccumLM f s (x:xs)
- = do (s1, x')  <- f s x
-      (s2, xs') <- mapAccumLM f s1 xs
-      return (s2, x' : xs')
-