Idris2-boot/libs/base/Debug/Trace.idr

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)