From 96f21260d2462a7e86bd411a2387eeadc8eeab45 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 23 Jun 2012 02:18:22 +0100 Subject: 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 file changed, 18 deletions(-) (limited to 'compiler/utils/MonadUtils.hs') diff --git a/compiler/utils/MonadUtils.hs b/compiler/utils/MonadUtils.hs index 3108a03d64..6f15ecc03d 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 ------------------------------------------------------------------------------- @@ -54,20 +50,6 @@ import Control.Monad.Trans 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 ------------------------------------------------------------------------------- -- cgit v1.2.1