Transfer: changed syntax to remove the mandatory type annotation in let.

2005-12-09 11:45:57 +00:00
parent ce8376885c
commit ccfe7fb119
21 changed files with 80 additions and 95 deletions
--- 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