chiasma-0.2.0.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 >> return b