summaryrefslogtreecommitdiff
path: root/tests/foldm.lac
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-06-26 12:35:26 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-06-26 12:35:26 -0400
commitabd57cd85a78e243185e7c6f528b3f21344319ea (patch)
tree970326ac48cfa321cae917503d7c5238f2c02bf0 /tests/foldm.lac
parentaedc1a079416569be9bf63de2d7c1d9d2262b915 (diff)
Folding through a functor
Diffstat (limited to 'tests/foldm.lac')
-rw-r--r--tests/foldm.lac26
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/foldm.lac b/tests/foldm.lac
new file mode 100644
index 00000000..64d30ba2
--- /dev/null
+++ b/tests/foldm.lac
@@ -0,0 +1,26 @@
+con currier = fold (fn nm => fn t => fn acc => t -> acc) {}
+
+signature S = sig
+ type t
+ val x : t
+
+ con rs :: {Type}
+ val create : currier rs -> t
+end
+
+functor Currier (M : sig con rs :: {Type} end) : S where con rs = M.rs = struct
+ val currier : rs :: {Type} -> currier rs =
+ fold [currier] (fn nm :: Name => fn t :: Type => fn rest :: {Type} => fn acc => fn x : t => acc) {}
+
+ type t = currier M.rs
+ val x = currier [M.rs]
+
+ con rs = M.rs
+ val create : t -> t = fn x => x
+end
+
+structure ChefsSpecial = Currier(struct
+ con rs = [A = int, B = float]
+end)
+
+val main = ChefsSpecial.x