diff options
| -rw-r--r-- | demo/prose | 2 | ||||
| -rw-r--r-- | demo/treeFun.ur | 3 | ||||
| -rw-r--r-- | demo/treeFun.urs | 3 |
3 files changed, 3 insertions, 5 deletions
@@ -104,7 +104,7 @@ tree.urp <li> SQL field names <tt>id</tt> (for primary keys) and <tt>parent</tt> (for parent links)</li> <li> A type-level record <tt>cols</tt> of field names besides <tt>id</tt> and <tt>parent</tt></li> <li> "Proofs" that <tt>id</tt> is distinct from <tt>parent</tt> and that neither of <tt>id</tt> and <tt>parent</tt> appears in <tt>cols</tt></li> - <li> Witnesses that both <tt>key</tt> and <tt>option key</tt> belong to the type class <tt>sql_injectable</tt>, which indicates that they are fair game to use with SQL</li> + <li> A witness that <tt>key</tt> belongs to the type class <tt>sql_injectable_prim</tt>, which indicates that both <tt>key</tt> and <tt>option key</tt> are fair game to use with SQL</li> <li> An SQL table <tt>tab</tt>, containing a field <tt>id</tt> of type <tt>key</tt>, a field <tt>parent</tt> of type <tt>option key</tt>, and every field of <tt>cols</tt></li> </ol> diff --git a/demo/treeFun.ur b/demo/treeFun.ur index 25d11927..2d4ef739 100644 --- a/demo/treeFun.ur +++ b/demo/treeFun.ur @@ -6,8 +6,7 @@ functor Make(M : sig constraint [id] ~ [parent] constraint [id, parent] ~ cols - val key_inj : sql_injectable key - val option_key_inj : sql_injectable (option key) + val key_inj : sql_injectable_prim key table tab : ([id = key, parent = option key] ++ cols) end) = struct diff --git a/demo/treeFun.urs b/demo/treeFun.urs index 64a14f4f..323c2e5a 100644 --- a/demo/treeFun.urs +++ b/demo/treeFun.urs @@ -6,8 +6,7 @@ functor Make(M : sig constraint [id] ~ [parent] constraint [id, parent] ~ cols - val key_inj : sql_injectable key - val option_key_inj : sql_injectable (option key) + val key_inj : sql_injectable_prim key table tab : ([id = key, parent = option key] ++ cols) end) : sig |