Mercurial > urweb

comparison lib/ur/top.urs @ 1363:7dd8a6704265

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Top.queryI1; fix definition of uw_Basis_minTime
author Adam Chlipala <adam@chlipala.net>
date Fri, 24 Dec 2010 16:41:10 -0500
parents 02fc16faecf3
children d328983dc5a6
comparison
equal deleted inserted replaced
1362:fd34210bc3e5 1363:7dd8a6704265
150 sql_query [] tables exps 150 sql_query [] tables exps
151 -> ($(exps ++ map (fn fields :: {Type} => $fields) tables) 151 -> ($(exps ++ map (fn fields :: {Type} => $fields) tables)
152 -> transaction unit) 152 -> transaction unit)
153 -> transaction unit 153 -> transaction unit
154 154
155 val queryI1 : nm ::: Name -> fs ::: {Type}
156 -> sql_query [] [nm = fs] []
157 -> ($fs -> transaction unit)
158 -> transaction unit
159
155 val queryX : tables ::: {{Type}} -> exps ::: {Type} -> ctx ::: {Unit} -> inp ::: {Type} 160 val queryX : tables ::: {{Type}} -> exps ::: {Type} -> ctx ::: {Unit} -> inp ::: {Type}
156 -> [tables ~ exps] => 161 -> [tables ~ exps] =>
157 sql_query [] tables exps 162 sql_query [] tables exps
158 -> ($(exps ++ map (fn fields :: {Type} => $fields) tables) 163 -> ($(exps ++ map (fn fields :: {Type} => $fields) tables)
159 -> xml ctx inp []) 164 -> xml ctx inp [])