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 | a4befc4babeacecd8dc724a4ba4b97ef5a7e3151 (patch) | |
tree | 83d7e73c2d9f50544d97d79f358b9aa267f6183a /src/cjr_print.sml | |
parent | 15019ea3085f93069295c77e196758827e3e2bee (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 |