Idris2/libs/base/Debug/Trace.idr
2020-05-18 14:00:08 +01:00

9 lines
157 B
Idris

module Debug.Trace
import Prelude
import PrimIO
export
trace : (msg : String) -> (result : a) -> a
trace x val = unsafePerformIO (do putStrLn x; pure val)