# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1423152565 18000
# Node ID b4702145f8ded20c04f17b22d5acca028dd17751
# Parent  809bceab15a337d913288d076db4a55de6f75f26
Treat getHeader and getenv as vectors for reading request data supplied implicitly by browsers

diff -r 809bceab15a3 -r b4702145f8de src/effectize.sml
--- a/src/effectize.sml	Sun Feb 01 15:50:54 2015 -0500
+++ b/src/effectize.sml	Thu Feb 05 11:09:25 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