From f44797c229bd24e282a727a85bf30eaa445dbebd Mon Sep 17 00:00:00 2001 From: "John A. De Goes" Date: Thu, 11 Aug 2016 13:31:03 -0600 Subject: [PATCH] remove unsafe instance for MonadIO --- src/Control/Monad/IO/Class.purs | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/Control/Monad/IO/Class.purs b/src/Control/Monad/IO/Class.purs index fc38bc8..0156fe1 100644 --- a/src/Control/Monad/IO/Class.purs +++ b/src/Control/Monad/IO/Class.purs @@ -1,16 +1,10 @@ module Control.Monad.IO.Class where import Control.Category (id) import Control.Monad (class Monad) - import Control.Monad.Aff (Aff) import Control.Monad.IO (IO) - import Unsafe.Coerce (unsafeCoerce) - class Monad m <= MonadIO m where liftIO :: forall a. IO a -> m a instance monadIOIO :: MonadIO IO where liftIO = id - - instance monadIOAff :: MonadIO (Aff e) where - liftIO = unsafeCoerce