chiasma-0.12.2.0: lib/Chiasma/Control/IO/Unsafe.hs

module Chiasma.Control.IO.Unsafe where

import GHC.IO.Unsafe (unsafePerformIO)

unsafeLog :: Show a => a -> b -> b
unsafeLog a b = unsafePerformIO $ print a >> pure b