Idris2/tests/idris2/basic061/IgnoreDo.idr

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