From a68cd282cb83d8ace42baffe0b0d3a00f3455920 Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 30 Nov 2005 17:40:32 +0000 Subject: Transfer: reimplement operators with type classes. --- transfer/lib/bool.tr | 2 ++ 1 file changed, 2 insertions(+) (limited to 'transfer/lib/bool.tr') diff --git a/transfer/lib/bool.tr b/transfer/lib/bool.tr index b8c1c95a5..2639422b7 100644 --- a/transfer/lib/bool.tr +++ b/transfer/lib/bool.tr @@ -1,3 +1,5 @@ +import prelude + depif : (A:Type) -> (B:Type) -> (b:Bool) -> A -> B -> if Type b then A else B depif _ _ True x _ = x depif _ _ False _ y = y -- cgit v1.2.3