Mercurial > urweb

comparison src/monoize.sml @ 1799:3d922a28370b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.getenv
author Adam Chlipala <adam@chlipala.net>
date Thu, 02 Aug 2012 16:33:25 -0400
parents 2e01a36701eb
children 38297294cf98
comparison
equal deleted inserted replaced
1798:10a2cb93d175 1799:3d922a28370b
223 | L.CFfi ("Basis", "css_class") => (L'.TFfi ("Basis", "string"), loc) 223 | L.CFfi ("Basis", "css_class") => (L'.TFfi ("Basis", "string"), loc)
224 | L.CFfi ("Basis", "css_value") => (L'.TFfi ("Basis", "string"), loc) 224 | L.CFfi ("Basis", "css_value") => (L'.TFfi ("Basis", "string"), loc)
225 | L.CFfi ("Basis", "css_property") => (L'.TFfi ("Basis", "string"), loc) 225 | L.CFfi ("Basis", "css_property") => (L'.TFfi ("Basis", "string"), loc)
226 | L.CFfi ("Basis", "css_style") => (L'.TFfi ("Basis", "string"), loc) 226 | L.CFfi ("Basis", "css_style") => (L'.TFfi ("Basis", "string"), loc)
227 | L.CFfi ("Basis", "id") => (L'.TFfi ("Basis", "string"), loc) 227 | L.CFfi ("Basis", "id") => (L'.TFfi ("Basis", "string"), loc)
228 | L.CFfi ("Basis", "requestHeader") => (L'.TFfi ("Basis", "string"), loc)
229 | L.CFfi ("Basis", "responseHeader") => (L'.TFfi ("Basis", "string"), loc)
230 | L.CFfi ("Basis", "envVar") => (L'.TFfi ("Basis", "string"), loc)
228 231
229 | L.CApp ((L.CFfi ("Basis", "serialized"), _), _) => 232 | L.CApp ((L.CFfi ("Basis", "serialized"), _), _) =>
230 (L'.TFfi ("Basis", "string"), loc) 233 (L'.TFfi ("Basis", "string"), loc)
231 234
232 | L.CApp ((L.CFfi ("Basis", "transaction"), _), t) => 235 | L.CApp ((L.CFfi ("Basis", "transaction"), _), t) =>