summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/cjr_print.sml8
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 ")"]