Mercurial > urweb
comparison src/monoize.sml @ 1799:3d922a28370b
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) => |