summaryrefslogtreecommitdiff
path: root/transfer/examples/bool.tr
diff options
context:
space:
mode:
authorbringert <bringert@cs.chalmers.se>2005-11-28 21:45:22 +0000
committerbringert <bringert@cs.chalmers.se>2005-11-28 21:45:22 +0000
commit02c23401a7a3e54d48084fc2796a485de36383f1 (patch)
tree03574e9f1c862f2b5685741c6c9d8ee8029aea21 /transfer/examples/bool.tr
parent5a82068ddc0e75ee2f2280ffb5da9cda3e53bac3 (diff)
Changed all example programs to use layout syntax.
Diffstat (limited to 'transfer/examples/bool.tr')
-rw-r--r--transfer/examples/bool.tr14
1 files changed, 8 insertions, 6 deletions
diff --git a/transfer/examples/bool.tr b/transfer/examples/bool.tr
index 291434a9f..401d238ef 100644
--- a/transfer/examples/bool.tr
+++ b/transfer/examples/bool.tr
@@ -1,8 +1,10 @@
-data Bool : Type where { True : Bool; False : Bool; } ;
+data Bool : Type where
+ True : Bool
+ False : Bool;
-depif : (A:Type) -> (B:Type) -> (b:Bool) -> A -> B -> if Type b then A else B ;
-depif _ _ True x _ = x ;
-depif _ _ False _ y = y ;
+depif : (A:Type) -> (B:Type) -> (b:Bool) -> A -> B -> if Type b then A else B
+depif _ _ True x _ = x
+depif _ _ False _ y = y
-not : Bool -> Bool ;
-not b = if b then False else True ;
+not : Bool -> Bool
+not b = if b then False else True