on aeb032a help sign in
10 lines 255 B history raw
1module Debug.Trace
3||| Print a message for debugging purposes as a side effect
4||| @ msg what to print
5||| @ result the final result
6export
7trace : (msg : String) -> (result : a) -> a
8trace x val = unsafePerformIO {ffi=FFI_C} (do putStrLn x; pure val)