diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-29 18:15:15 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-29 18:15:15 +0000 |
| commit | 5b9249a422cb1ac172d6b5f1f03d5cde629d6216 (patch) | |
| tree | 357db7dd0d5d6340bbca68803be6d26807e3c552 /transfer/examples/overload.tr | |
| parent | f6159d4bffe1f163914a41f33afea36a499bc89a (diff) | |
Split widesnake example. Changed examples to use rec and sig keywords.
Diffstat (limited to 'transfer/examples/overload.tr')
| -rw-r--r-- | transfer/examples/overload.tr | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/transfer/examples/overload.tr b/transfer/examples/overload.tr index 58ef1b7ce..cb3862d7a 100644 --- a/transfer/examples/overload.tr +++ b/transfer/examples/overload.tr @@ -1,15 +1,15 @@ Additive : Type -> Type -Additive A = { zero : A; plus : A -> A -> A } +Additive A = sig { zero : A; plus : A -> A -> A } additive_Integer : Additive Integer -additive_Integer = { zero = 0; plus = prim_add_Int } +additive_Integer = rec { zero = 0; plus = prim_add_Int } sum : (A:Type) -> Additive A -> List A -> A sum _ d (Nil _) = d.zero sum A d (Cons _ x xs) = d.plus x (sum A d xs) Showable : Type -> Type -Showable A = { show : A -> String } +Showable A = sig { show : A -> String } --Compositional : Type -> Type |
