Skip to content
This repository has been archived by the owner on Jan 17, 2020. It is now read-only.

Commit

Permalink
remove unsafe instance for MonadIO
Browse files Browse the repository at this point in the history
  • Loading branch information
jdegoes committed Aug 11, 2016
1 parent bb69b01 commit f44797c
Showing 1 changed file with 0 additions and 6 deletions.
6 changes: 0 additions & 6 deletions src/Control/Monad/IO/Class.purs
Original file line number Diff line number Diff line change
@@ -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

0 comments on commit f44797c

Please sign in to comment.