diff options
author | 2009-10-22 11:15:37 -0400 | |
---|---|---|
committer | 2009-10-22 11:15:37 -0400 | |
commit | 78ec4fdf7ff7bf9e53732228aaa5928e4be519a9 (patch) | |
tree | d366eb0c432244981b3d0a9eaae15e7b0273125e /lib/ur | |
parent | 1e282f3fc0fdf944d152f33643143fc6e060e1dd (diff) |
Checking deadline; sign-in
Diffstat (limited to 'lib/ur')
-rw-r--r-- | lib/ur/basis.urs | 5 | ||||
-rw-r--r-- | lib/ur/top.ur | 5 | ||||
-rw-r--r-- | lib/ur/top.urs | 5 |
3 files changed, 15 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 7c3c0969..6536dc3f 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -111,6 +111,11 @@ val signal : t ::: Type -> source t -> signal t val current : t ::: Type -> signal t -> transaction t +(** * Time *) + +val now : transaction time + + (** HTTP operations *) val requestHeader : string -> transaction (option string) diff --git a/lib/ur/top.ur b/lib/ur/top.ur index 6a0f8751..10b3f711 100644 --- a/lib/ur/top.ur +++ b/lib/ur/top.ur @@ -246,6 +246,11 @@ fun oneOrNoRows1 [nm ::: Name] [fs ::: {Type}] (q : sql_query [nm = fs] []) = (fn fs _ => return (Some fs.nm)) None +fun oneOrNoRowsE1 [tab ::: Name] [nm ::: Name] [t ::: Type] [[tab] ~ [nm]] (q : sql_query [tab = []] [nm = t]) = + query q + (fn fs _ => return (Some fs.nm)) + None + fun oneRow [tables ::: {{Type}}] [exps ::: {Type}] [tables ~ exps] (q : sql_query tables exps) = o <- oneOrNoRows q; diff --git a/lib/ur/top.urs b/lib/ur/top.urs index b6734cd3..80d402b1 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -151,6 +151,11 @@ val oneOrNoRows1 : nm ::: Name -> fs ::: {Type} -> sql_query [nm = fs] [] -> transaction (option $fs) +val oneOrNoRowsE1 : tab ::: Name -> nm ::: Name -> t ::: Type + -> [[tab] ~ [nm]] => + sql_query [tab = []] [nm = t] + -> transaction (option t) + val oneRow : tables ::: {{Type}} -> exps ::: {Type} -> [tables ~ exps] => sql_query tables exps |