Idris2/libs/base/Debug/Trace.idr

9 lines
157 B
Idris
Raw Normal View History

2020-05-18 15:59:07 +03:00
module Debug.Trace
import Prelude
import PrimIO
export
trace : (msg : String) -> (result : a) -> a
trace x val = unsafePerformIO (do putStrLn x; pure val)