Skip to content

Instantly share code, notes, and snippets.

@jacobstanley

jacobstanley/trace.hs

Created August 14, 2019 10:05
Show Gist options
  • Save jacobstanley/365937177c68425ccf50ead8af74495a to your computer and use it in GitHub Desktop.
Save jacobstanley/365937177c68425ccf50ead8af74495a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
trace.hs
import qualified System.Console.Concurrent as Concurrent
trace :: [Char] -> a -> a
trace string expr =
unsafePerformIO $ do
traceIO string
return expr
traceIO :: [Char] -> IO ()
traceIO string = do
Concurrent.errorConcurrent (string <> "\n")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment