# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1423580315 18000
# Node ID dca8d91b4170318faca7955447ef79943be3733c
# Parent  c15f35e507b55cda02a412457cdad18083a4fa9d# Parent  b4702145f8ded20c04f17b22d5acca028dd17751
Merge

diff -r c15f35e507b5 -r dca8d91b4170 src/effectize.sml
--- 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