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