Idris2/tests/idris2/operators/operators005/Test.idr


import Data.String

private typebind infixr 0 :-
private autobind infixr 0 `for`

record Container where
  constructor (:-)
  a1 : Type
  a2 : a1 -> Type

const : Type -> Type -> Container
const a b = (_ : a) :- b

test : Maybe (List Double)
test = (_ := ["1", "two", "3"]) `for` Just 3

test2 : Maybe (List Double)
test2 = (_ : String := ["1", "two", "3"]) `for` Just 3
Allow underscore as a valid name for binder operator 2024-01-07 13:42:33 +03:00
			`import Data.String`

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 typebind infixr 0 :-`
			private autobind infixr 0 `for`
Allow underscore as a valid name for binder operator 2024-01-07 13:42:33 +03:00
			`record Container where`
			`constructor (:-)`
			`a1 : Type`
			`a2 : a1 -> Type`

			`const : Type -> Type -> Container`
			`const a b = (_ : a) :- b`

			`test : Maybe (List Double)`
			test = (_ := ["1", "two", "3"]) `for` Just 3

			`test2 : Maybe (List Double)`
			test2 = (_ : String := ["1", "two", "3"]) `for` Just 3