Implement Debug.Trace, from Idris 1's base package

libs/base/Debug/Trace.idr

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

libs/base/base.ipkg

@@ -22,6 +22,8 @@ modules = Control.Monad.Identity,
           Data.Strings,
           Data.Vect,
 
+          Debug.Trace,
+
           Decidable.Equality,
 
           Language.Reflection,