mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-20 11:21:43 +03:00
19 lines
324 B
Idris
19 lines
324 B
Idris
module System
|
|
|
|
import Data.So
|
|
|
|
%cg chicken (use posix)
|
|
|
|
export
|
|
sleep : Int -> IO ()
|
|
sleep sec = schemeCall () "blodwen-sleep" [sec]
|
|
|
|
export
|
|
usleep : (x : Int) -> So (x >= 0) => IO ()
|
|
usleep usec = schemeCall () "blodwen-usleep" [usec]
|
|
|
|
export
|
|
getArgs : IO (List String)
|
|
getArgs = schemeCall (List String) "blodwen-args" []
|
|
|