mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-26 13:11:30 +03:00
9 lines
331 B
Plaintext
9 lines
331 B
Plaintext
1/1: Building IgnoreDo (IgnoreDo.idr)
|
|
IgnoreDo> IgnoreDo.bound : Maybe () -> Maybe b -> Maybe b
|
|
bound m n = m >>= (\x => let y = 0 in n)
|
|
IgnoreDo> IgnoreDo.ignored : Maybe () -> Maybe b -> Maybe b
|
|
ignored m n = m >>= (\_ => n)
|
|
IgnoreDo> IgnoreDo.seqd : Maybe () -> Maybe b -> Maybe b
|
|
seqd m n = m >> Delay n
|
|
IgnoreDo> Bye for now!
|