Idris2/tests/idris2/operators/operators007/Test2.idr


import Data.Fin

private autobind infixr 0 >>
private autobind infixr 0 >=

(>>) : Monad m => m a -> (a -> m b) -> m b
(>>) = (>>=)

(>=) : Monad m => m a -> (a -> m b) -> m b
(>=) = (>>=)

both : Maybe (Nat, Nat) -> Maybe Nat
both m = (MkPair x y := m) >>= Just (x + y)
implement compatible operator suggestions 2024-01-20 22:47:23 +03:00
			`import Data.Fin`

Emit warning for fixities with no export modifiers (#3234) * Emit warning for fixities with no export modifiers This is to help update all the existing code to program with explicit fixity export directives in preparation for the behavioral change where they will become private by default. 2024-04-03 17:41:57 +03:00			`private autobind infixr 0 >>`
			`private autobind infixr 0 >=`
implement compatible operator suggestions 2024-01-20 22:47:23 +03:00
			`(>>) : Monad m => m a -> (a -> m b) -> m b`
			`(>>) = (>>=)`

			`(>=) : Monad m => m a -> (a -> m b) -> m b`
			`(>=) = (>>=)`

			`both : Maybe (Nat, Nat) -> Maybe Nat`
			`both m = (MkPair x y := m) >>= Just (x + y)`