Idris2/tests/idris2/reg/reg037/Test.idr

module Test

data A = A0

giveA : HasIO io => io A
giveA = pure A0

please : HasIO io => io ()
please = do
     value_a <- giveA

     let a : A
         a = value_a

     pure ()

interface Cool a where cool : a -> a
implementation Cool A where cool x = x

help : A
help = cool (let x : String; x = "hello" in A0)
Check current holes only at end of elaboration Fixes #1140 - when checking holes were solved, we checked all of them, but there may still be some open if there's a local definition. 2021-03-01 22:11:15 +03:00			`module Test`

			`data A = A0`

			`giveA : HasIO io => io A`
			`giveA = pure A0`

			`please : HasIO io => io ()`
			`please = do`
			`value_a <- giveA`

			`let a : A`
			`a = value_a`

			`pure ()`

			`interface Cool a where cool : a -> a`
			`implementation Cool A where cool x = x`

			`help : A`
			`help = cool (let x : String; x = "hello" in A0)`