From 6a6c98d74f0eb61b52e8adc5385698a224eeccc1 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 28 May 2009 10:35:25 -0400
Subject: Demo compiles with pattern-matching-fu

---
 demo/list.ur | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'demo/list.ur')

diff --git a/demo/list.ur b/demo/list.ur
index 107bf92c..961708ea 100644
--- a/demo/list.ur
+++ b/demo/list.ur
@@ -1,6 +1,6 @@
 datatype list t = Nil | Cons of t * list t
 
-fun length (t ::: Type) (ls : list t) =
+fun length [t] (ls : list t) =
     let
         fun length' (ls : list t) (acc : int) =
             case ls of
@@ -10,7 +10,7 @@ fun length (t ::: Type) (ls : list t) =
         length' ls 0
     end
 
-fun rev (t ::: Type) (ls : list t) = 
+fun rev [t] (ls : list t) = 
     let
         fun rev' (ls : list t) (acc : list t) =
             case ls of
-- 
cgit v1.2.3