diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-07 15:04:07 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-07 15:04:07 -0400 |
| commit | e56ecefbc8cc0251d30511ec8c6cdc8dca25a263 (patch) | |
| tree | 24ba2b9bca09a5a9c9236d096b13998d77a97ab9 /demo | |
| parent | 1169e58b645a34751d97d9b54e977edd9359587d (diff) | |
Enhance table sig item support and get demo compiling again
Diffstat (limited to 'demo')
| -rw-r--r-- | demo/batchFun.ur | 2 | ||||
| -rw-r--r-- | demo/batchFun.urs | 2 | ||||
| -rw-r--r-- | demo/crud.ur | 2 | ||||
| -rw-r--r-- | demo/crud.urs | 2 | ||||
| -rw-r--r-- | demo/treeFun.ur | 2 | ||||
| -rw-r--r-- | demo/treeFun.urs | 2 |
6 files changed, 6 insertions, 6 deletions
diff --git a/demo/batchFun.ur b/demo/batchFun.ur index 2eed464b..35276d0e 100644 --- a/demo/batchFun.ur +++ b/demo/batchFun.ur @@ -27,7 +27,7 @@ functor Make(M : sig constraint [Id] ~ cols val fl : folder cols - val tab : sql_table ([Id = int] ++ map fst cols) + table tab : ([Id = int] ++ map fst cols) val title : string diff --git a/demo/batchFun.urs b/demo/batchFun.urs index 695576c5..e3acb197 100644 --- a/demo/batchFun.urs +++ b/demo/batchFun.urs @@ -17,7 +17,7 @@ functor Make(M : sig constraint [Id] ~ cols val fl : folder cols - val tab : sql_table ([Id = int] ++ map fst cols) + table tab : ([Id = int] ++ map fst cols) val title : string diff --git a/demo/crud.ur b/demo/crud.ur index dc9a5b7c..cf120697 100644 --- a/demo/crud.ur +++ b/demo/crud.ur @@ -35,7 +35,7 @@ functor Make(M : sig constraint [Id] ~ cols val fl : folder cols - val tab : sql_table ([Id = int] ++ map fst cols) + table tab : ([Id = int] ++ map fst cols) val title : string diff --git a/demo/crud.urs b/demo/crud.urs index 57ab3808..9b1055b2 100644 --- a/demo/crud.urs +++ b/demo/crud.urs @@ -18,7 +18,7 @@ functor Make(M : sig constraint [Id] ~ cols val fl : folder cols - val tab : sql_table ([Id = int] ++ map fst cols) + table tab : ([Id = int] ++ map fst cols) val title : string diff --git a/demo/treeFun.ur b/demo/treeFun.ur index 15fe60f5..25d11927 100644 --- a/demo/treeFun.ur +++ b/demo/treeFun.ur @@ -9,7 +9,7 @@ functor Make(M : sig val key_inj : sql_injectable key val option_key_inj : sql_injectable (option key) - table tab : [id = key, parent = option key] ++ cols + table tab : ([id = key, parent = option key] ++ cols) end) = struct open M diff --git a/demo/treeFun.urs b/demo/treeFun.urs index 501a0575..64a14f4f 100644 --- a/demo/treeFun.urs +++ b/demo/treeFun.urs @@ -9,7 +9,7 @@ functor Make(M : sig val key_inj : sql_injectable key val option_key_inj : sql_injectable (option key) - table tab : [id = key, parent = option key] ++ cols + table tab : ([id = key, parent = option key] ++ cols) end) : sig con id = M.id |