diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-01-06 12:49:14 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-01-06 12:49:14 -0500 |
commit | e2ce533559f5669a13d663c74d65610079162448 (patch) | |
tree | 83d7e73c2d9f50544d97d79f358b9aa267f6183a /src/cjr_print.sml | |
parent | ede0d18f8ce0f39b1458f201d144682e2d52ca5b (diff) |
Ignore unknown names in query string name-value pairs; allow any side effects by Extern URLs, without signature checking
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r-- | src/cjr_print.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 4237fd90..832af7eb 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -2588,7 +2588,7 @@ fun p_file env (ds, ps) = Link => false | Action ef => ef = ReadCookieWrite | Rpc ef => ef = ReadCookieWrite - | Extern ef => ef = ReadCookieWrite + | Extern _ => false val s = case Settings.getUrlPrefix () of |