summaryrefslogtreecommitdiff
path: root/tests/specialize.ur
diff options
context:
space:
mode:
Diffstat (limited to 'tests/specialize.ur')
-rw-r--r--tests/specialize.ur26
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/specialize.ur b/tests/specialize.ur
new file mode 100644
index 00000000..532463c0
--- /dev/null
+++ b/tests/specialize.ur
@@ -0,0 +1,26 @@
+datatype list a = Nil | Cons of a * list a
+
+fun isNil (t ::: Type) (ls : list t) : bool =
+ case ls of
+ Nil => True
+ | Cons _ => False
+
+(*fun append (t ::: Type) (ls1 : list t) (ls2 : list t) : list t =
+ case ls1 of
+ Nil => ls2
+ | Cons (x, ls1') => Cons (x, append ls1' ls2)
+
+fun delist (ls : list string) : xml body [] [] =
+ case ls of
+ Nil => <body>Nil</body>
+ | Cons (h, t) => <body>{cdata h} :: {delist t}</body>*)
+
+val ls = Cons ("X", Cons ("Y", Cons ("Z", Nil)))
+
+fun main () : transaction page = return <html><body>
+ {if isNil ls then <body>It's Nil.</body> else <body>It's not Nil.</body>}
+</body></html>
+
+
+(* <p>{delist ls}</p>*)
+