mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
19 lines
241 B
Idris
19 lines
241 B
Idris
module IgnoreDo
|
|
|
|
bound : Maybe () -> Maybe b -> Maybe b
|
|
bound m n = do
|
|
x <- m
|
|
let y = Z
|
|
n
|
|
|
|
ignored : Maybe () -> Maybe b -> Maybe b
|
|
ignored m n = do
|
|
_ <- m
|
|
let _ = Z
|
|
n
|
|
|
|
seqd : Maybe () -> Maybe b -> Maybe b
|
|
seqd m n = do
|
|
m
|
|
n
|