mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2025-01-05 11:32:15 +03:00
21 lines
525 B
Idris
21 lines
525 B
Idris
|
data MyCmd : Type -> Type where
|
||
|
|
Display : String -> MyCmd ()
|
||
|
|
Input : MyCmd String
|
||
|
|
|
||
|
|
Pure : ty -> MyCmd ty
|
||
|
|
(>>=) : MyCmd a -> (a -> MyCmd b) -> MyCmd b
|
||
|
|
|
||
|
|
runMyCmd : MyCmd a -> IO a
|
||
|
|
runMyCmd (Display str) = putStrLn str
|
||
|
|
runMyCmd Input = do str <- getLine
|
||
|
|
pure str
|
||
|
|
runMyCmd (Pure x) = pure x
|
||
|
|
runMyCmd (c >>= f) = do res <- runMyCmd c
|
||
|
|
runMyCmd (f res)
|
||
|
|
|
||
|
|
myCmdTest : MyCmd ()
|
||
|
|
myCmdTest = do Display "Hello"
|
||
|
|
x <- Input
|
||
|
|
Display x
|
||
|
|
Pure ()
|