mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
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)
|