diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-02-24 15:54:05 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-24 15:54:05 -0500 |
commit | 11809629254afd8ea304b98b840bd9a1aea29f6c (patch) | |
tree | 8cf095234a22fcd203ed7252682e6db13796cf59 /demo | |
parent | 4f172cc3cd29894ec3989f5a43b40efca1da781b (diff) |
Folder generation for functors
Diffstat (limited to 'demo')
-rw-r--r-- | demo/crud1.ur | 6 | ||||
-rw-r--r-- | demo/crud2.ur | 4 | ||||
-rw-r--r-- | demo/metaform1.ur | 1 | ||||
-rw-r--r-- | demo/metaform2.ur | 1 |
4 files changed, 0 insertions, 12 deletions
diff --git a/demo/crud1.ur b/demo/crud1.ur index 65140035..3849e822 100644 --- a/demo/crud1.ur +++ b/demo/crud1.ur @@ -9,10 +9,4 @@ open Crud.Make(struct B = Crud.string "B", C = Crud.float "C", D = Crud.bool "D"} - - val fl = Folder.cons [#A] [_] ! - (Folder.cons [#B] [_] ! - (Folder.cons [#C] [_] ! - (Folder.cons [#D] [_] ! - Folder.nil))) end) diff --git a/demo/crud2.ur b/demo/crud2.ur index f7adf29b..1db376d4 100644 --- a/demo/crud2.ur +++ b/demo/crud2.ur @@ -31,8 +31,4 @@ open Crud.Make(struct Inject = _ } } - - val fl = Folder.cons [#Nam] [_] ! - (Folder.cons [#Ready] [_] ! - Folder.nil) end) diff --git a/demo/metaform1.ur b/demo/metaform1.ur index 2f3356fa..c6a4664d 100644 --- a/demo/metaform1.ur +++ b/demo/metaform1.ur @@ -1,4 +1,3 @@ open Metaform.Make(struct val names = {A = "Tic", B = "Tac", C = "Toe"} - val fl = Folder.cons [#A] [()] ! (Folder.cons [#B] [()] ! (Folder.cons [#C] [()] ! Folder.nil)) end) diff --git a/demo/metaform2.ur b/demo/metaform2.ur index 87d40b18..430a42f0 100644 --- a/demo/metaform2.ur +++ b/demo/metaform2.ur @@ -1,6 +1,5 @@ structure MM = Metaform.Make(struct val names = {X = "x", Y = "y"} - val fl = Folder.cons [#X] [()] ! (Folder.cons [#Y] [()] ! Folder.nil) end) fun diversion () = return <xml><body> |