diff options
| -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 ")"] |