Mercurial > urweb

comparison lib/ur/top.urs @ 1110:7fc4e0087e50

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proper 404 generation
author Adam Chlipala <adamc@hcoop.net>
date Sat, 02 Jan 2010 13:31:59 -0500
parents 8d3aa6c7cee0
children ad15700272f6
comparison
equal deleted inserted replaced
1109:631a3597c065 1110:7fc4e0087e50
146 -> [tables ~ exps] => 146 -> [tables ~ exps] =>
147 sql_query tables exps 147 sql_query tables exps
148 -> ($(exps ++ map (fn fields :: {Type} => $fields) tables) 148 -> ($(exps ++ map (fn fields :: {Type} => $fields) tables)
149 -> transaction (xml ctx inp [])) 149 -> transaction (xml ctx inp []))
150 -> transaction (xml ctx inp []) 150 -> transaction (xml ctx inp [])
151 151 val queryX1' : nm ::: Name -> fs ::: {Type} -> ctx ::: {Unit} -> inp ::: {Type}
152 -> sql_query [nm = fs] []
153 -> ($fs -> transaction (xml ctx inp []))
154 -> transaction (xml ctx inp [])
155 val queryXE' : exps ::: {Type} -> ctx ::: {Unit} -> inp ::: {Type}
156 -> sql_query [] exps
157 -> ($exps -> transaction (xml ctx inp []))
158 -> transaction (xml ctx inp [])
159
152 val hasRows : tables ::: {{Type}} -> exps ::: {Type} 160 val hasRows : tables ::: {{Type}} -> exps ::: {Type}
153 -> [tables ~ exps] => 161 -> [tables ~ exps] =>
154 sql_query tables exps 162 sql_query tables exps
155 -> transaction bool 163 -> transaction bool
156 164