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