mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
44 lines
686 B
Plaintext
44 lines
686 B
Plaintext
structural type Optional a = Some a | None
|
|
|
|
structural ability Abort where
|
|
Abort : forall a . () -> {Abort} a
|
|
|
|
structural ability Abort2 where
|
|
Abort2 : forall a . () -> {Abort2} a
|
|
Abort2' : forall a . () -> {Abort2} a
|
|
|
|
app : Optional Int
|
|
app = Optional.Some 3
|
|
|
|
app' : Optional Int
|
|
app' = 3
|
|
|
|
arrow : Int -> Int -> Int
|
|
arrow a = 3
|
|
|
|
ability' : Nat -> { Abort } Int
|
|
ability' n = Abort2.Abort2 ()
|
|
|
|
id : forall a . a -> a
|
|
id x = 3
|
|
|
|
f2 : forall a . a -> a -> a
|
|
f2 x = x
|
|
|
|
const : forall a b . a -> b -> a
|
|
const a b = 3
|
|
|
|
y : (Optional Int)
|
|
y = 3
|
|
|
|
z' : (Optional Int, Optional Text, Optional Float)
|
|
z' = (None, 3)
|
|
|
|
z : (Optional Int, Optional Text, Optional Float)
|
|
z = 3
|
|
|
|
x : ()
|
|
x = 3
|
|
|
|
()
|