changeset 2114:dca8d91b4170

Merge
author Adam Chlipala <adam@chlipala.net>
date Tue, 10 Feb 2015 09:58:35 -0500
parents c15f35e507b5 b4702145f8de
children 3dc020fb2aa1
files
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
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