Mercurial > urweb
diff src/effectize.sml @ 2114:dca8d91b4170
Merge
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 10 Feb 2015 09:58:35 -0500 |
parents | b4702145f8de |
children |
line wrap: on
line diff
--- a/src/effectize.sml Tue Feb 10 09:58:20 2015 -0500 +++ b/src/effectize.sml Tue Feb 10 09:58:35 2015 -0500 @@ -79,6 +79,8 @@ fun exp evs e = case e of EFfi ("Basis", "getCookie") => true + | EFfiApp ("Basis", "getHeader", _) => true + | EFfiApp ("Basis", "getenv", _) => true | ENamed n => IM.inDomain (evs, n) | EServerCall (n, _, _, _) => IM.inDomain (evs, n) | _ => false