Idris2/libs/base/Debug/Trace.idr
2021-06-12 21:06:08 -05:00

11 lines
173 B
Idris

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