module Chiasma.Control.IO.Unsafe where import GHC.IO.Unsafe (unsafePerformIO) unsafeLog :: Show a => a -> b -> b unsafeLog :: a -> b -> b unsafeLog a a b b = IO b -> b forall a. IO a -> a unsafePerformIO (IO b -> b) -> IO b -> b forall a b. (a -> b) -> a -> b $ a -> IO () forall a (m :: * -> *). (MonadIO m, Show a) => a -> m () print a a IO () -> IO b -> IO b forall (m :: * -> *) a b. Monad m => m a -> m b -> m b >> b -> IO b forall (m :: * -> *) a. Monad m => a -> m a return b b