diff options
Diffstat (limited to 'src/test')
| -rw-r--r-- | src/test/test1.sail | 4 | ||||
| -rw-r--r-- | src/test/test3.sail | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/test/test1.sail b/src/test/test1.sail index 128a4a99..5c29f258 100644 --- a/src/test/test1.sail +++ b/src/test/test1.sail @@ -2,8 +2,8 @@ default Nat 'i default Order 'o default bool b default forall 'a. list<'a> b -val forall 'a, 'b . ('a * 'b) -> 'b pure snd -val forall Type 'i, 'b. ('i * 'b) -> 'i pure fst +val forall 'a, 'b . ('a * 'b) -> 'b effect pure snd +val forall Type 'i, 'b. ('i * 'b) -> 'i effect pure fst typedef int_list [name = "il"] = list<nat> typedef reco = const struct forall 'i, 'a, 'b. { 'a['i] v; 'b w; } typedef maybe = const union forall 'a. { Nne; 'a Sme; } diff --git a/src/test/test3.sail b/src/test/test3.sail index e77e1b71..89c710bc 100644 --- a/src/test/test3.sail +++ b/src/test/test3.sail @@ -7,8 +7,8 @@ val nat -> nat effect { wmem , rmem } MEM_GPU val ( nat * nat ) -> nat effect { wmem , rmem } MEM_SIZE (* extern functions *) -val extern ( nat * nat ) -> nat pure add = "add" -val extern ( nat * nat ) -> nat pure (deinfix + ) = "add_infix" (* infix plus *) +val extern ( nat * nat ) -> nat effect pure add = "add" +val extern ( nat * nat ) -> nat effect pure (deinfix + ) = "add_infix" (* infix plus *) function nat (deinfix * ) ( (nat) x, (nat) y ) = 42 |