mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-22 19:21:39 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
18 lines
348 B
Idris
18 lines
348 B
Idris
module Control.App.Console
|
|
|
|
import public Control.App
|
|
|
|
public export
|
|
interface Console e where
|
|
putStr : String -> App {l} e ()
|
|
getStr : App {l} e String
|
|
|
|
export
|
|
PrimIO e => Console e where
|
|
putStr str = primIO $ putStr str
|
|
getStr = primIO $ getLine
|
|
|
|
export
|
|
putStrLn : Console e => String -> App {l} e ()
|
|
putStrLn str = putStr (str ++ "\n")
|