Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/96f21260d2462a7e86bd411a2387eeadc8eeab45 >--------------------------------------------------------------- commit 96f21260d2462a7e86bd411a2387eeadc8eeab45 Author: Ian Lynagh <[email protected]> Date: Sat Jun 23 02:18:22 2012 +0100 Remove the ID Monad We don't use it, and if we want an identity Monad then there's one in transformers:Data.Functor.Identity that we could use. >--------------------------------------------------------------- compiler/utils/MonadUtils.hs | 18 ------------------ 1 files changed, 0 insertions(+), 18 deletions(-) diff --git a/compiler/utils/MonadUtils.hs b/compiler/utils/MonadUtils.hs index 3108a03..6f15ecc 100644 --- a/compiler/utils/MonadUtils.hs +++ b/compiler/utils/MonadUtils.hs @@ -16,8 +16,6 @@ module MonadUtils , MonadFix(..) , MonadIO(..) - , ID, runID - , liftIO1, liftIO2, liftIO3, liftIO4 , zipWith3M @@ -32,8 +30,6 @@ module MonadUtils , maybeMapM ) where -import Outputable - ------------------------------------------------------------------------------- -- Detection of available libraries ------------------------------------------------------------------------------- @@ -55,20 +51,6 @@ import Control.Monad import Control.Monad.Fix ------------------------------------------------------------------------------- --- The ID monad -------------------------------------------------------------------------------- - -newtype ID a = ID a -instance Monad ID where - return x = ID x - (ID x) >>= f = f x - _ >> y = y - fail s = panic s - -runID :: ID a -> a -runID (ID x) = x - -------------------------------------------------------------------------------- -- MTL ------------------------------------------------------------------------------- _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
