From ccfe7fb119aa4aed9b971bd52f72ab0f54df1bf4 Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 9 Dec 2005 11:45:57 +0000 Subject: Transfer: changed syntax to remove the mandatory type annotation in let. --- transfer/lib/prelude.tra | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'transfer/lib') diff --git a/transfer/lib/prelude.tra b/transfer/lib/prelude.tra index c6bb7ea67..696ea9d22 100644 --- a/transfer/lib/prelude.tra +++ b/transfer/lib/prelude.tra @@ -176,7 +176,7 @@ concat A = foldr (List A) (List A) (append A) (Nil A) partition : (A : Type) -> (A -> Bool) -> List A -> Pair (List A) (List A) partition _ _ [] = ([],[]) partition A p (x::xs) = - let r : Pair (List A) (List A) = partition A p xs + let r = partition A p xs in if p x then (x :: r.p1, r.p2) else (r.p1, x :: r.p2) -- cgit v1.2.3