diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-23 02:18:22 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-23 02:18:22 +0100 |
| commit | 96f21260d2462a7e86bd411a2387eeadc8eeab45 (patch) | |
| tree | fe4eb3fbe2e739b93e05009957e5120370db36d6 /compiler/utils/MonadUtils.hs | |
| parent | 5efe3986d84c31730a523450a44f83e7daf27fc5 (diff) | |
| download | haskell-96f21260d2462a7e86bd411a2387eeadc8eeab45.tar.gz | |
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.
Diffstat (limited to 'compiler/utils/MonadUtils.hs')
| -rw-r--r-- | 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 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 ------------------------------------------------------------------------------- @@ -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 ------------------------------------------------------------------------------- |