module Chiasma.Control.IO.Unsafe where import GHC.IO.Unsafe (unsafePerformIO) unsafeLog :: Show a => a -> b -> b unsafeLog :: forall a b. Show a => 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. Show a => a -> IO () print a a IO () -> IO b -> IO b forall a b. IO a -> IO b -> IO b forall (m :: * -> *) a b. Monad m => m a -> m b -> m b >> b -> IO b forall a. a -> IO a forall (f :: * -> *) a. Applicative f => a -> f a pure b b