mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-15 14:23:32 +03:00
1d965627c9
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.
22 lines
315 B
Idris
22 lines
315 B
Idris
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)
|