mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-16 07:34:45 +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)
|