summaryrefslogtreecommitdiff
path: root/transfer/examples/overload.tr
diff options
context:
space:
mode:
authorbringert <bringert@cs.chalmers.se>2005-11-29 18:15:15 +0000
committerbringert <bringert@cs.chalmers.se>2005-11-29 18:15:15 +0000
commit5b9249a422cb1ac172d6b5f1f03d5cde629d6216 (patch)
tree357db7dd0d5d6340bbca68803be6d26807e3c552 /transfer/examples/overload.tr
parentf6159d4bffe1f163914a41f33afea36a499bc89a (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.tr6
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