From 28ddef074b70a555c595f7f42ff97765d221b8eb Mon Sep 17 00:00:00 2001 From: Twan van Laarhoven Date: Thu, 17 Jan 2008 20:21:44 +0000 Subject: [PATCH 1/1] Remove generic monad function from State, it was moved to MonadUtils --- compiler/utils/State.hs | 15 --------------- 1 file changed, 15 deletions(-) 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') - -- 1.7.10.4