diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2018-06-04 11:50:50 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2018-06-04 11:50:50 -0400 |
| commit | c68da19be2a3fab584973c4a9d0a93035a6d9116 (patch) | |
| tree | 59b30aca3319921c651ef6ef0d0453e4d3447f44 | |
| parent | 50010c982776ae62233f577f74a8e92e02c5b190 (diff) | |
Fix to recent addition of defensive unurlification
| -rw-r--r-- | src/cjr_print.sml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index c83da031..87d2576c 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -659,7 +659,13 @@ fun unurlify fromClient env (t, loc) = doEm rest, string ")"] in - box [string "(request[0] == '/' ? ++request : request,", + box [string "(", + string request, + string "[0] == '/' ? ++", + string request, + string " : ", + string request, + string ",", newline, doEm xncs, string ")"] |