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/examples/widesnake.tra | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'transfer/examples/widesnake.tra') diff --git a/transfer/examples/widesnake.tra b/transfer/examples/widesnake.tra index e27bd5981..8b2a199c2 100644 --- a/transfer/examples/widesnake.tra +++ b/transfer/examples/widesnake.tra @@ -13,7 +13,7 @@ isSnake _ x = case x of wideSnake : (A : Cat) -> Tree A -> Tree A wideSnake _ x = case x of - Wide y -> let y' : CN = wideSnake ? y + Wide y -> let y' = wideSnake ? y in if isSnake CN y' then Thick y' else Wide y' _ -> composOp ? ? compos_Tree ? wideSnake x -- cgit v1.2.3