2020-05-18 15:59:07 +03:00
|
|
|
module Debug.Trace
|
|
|
|
|
|
|
|
|
|
import Prelude
|
|
|
|
|
import PrimIO
|
|
|
|
|
|
2021-06-09 01:05:10 +03:00
|
|
|
%default total
|
|
|
|
|
|
2020-05-18 15:59:07 +03:00
|
|
|
export
|
|
|
|
|
trace : (msg : String) -> (result : a) -> a
|
|
|
|
|
trace x val = unsafePerformIO (do putStrLn x; pure val)
|
