proteome-0.3.5.0: lib/Ribosome/Unsafe.hs

module Ribosome.Unsafe(
  unsafeLog,
) where

import GHC.IO.Unsafe (unsafePerformIO)

unsafeLog :: Show a => a -> b -> b
unsafeLog a b = unsafePerformIO $ (print a) >> return b