edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2025-01-04 10:45:11 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #144 from sysvinit/debug-trace

Browse Source 
Port Debug.Trace from Idris 1
This commit is contained in:
Edwin Brady 2019-12-06 10:38:28 +00:00 committed by GitHub
commit 078b5be85f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libs/base/Debug/Trace.idr Normal file
View File

@ -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)

2
libs/base/base.ipkg
View File

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