summaryrefslogtreecommitdiff
path: root/src/cjr_print.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2019-04-09 15:33:45 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2019-04-09 15:33:45 -0400
commitc4aba7a0befd9988ae032c5532790e5fabb321b9 (patch)
tree14a3d3c567bf18c62ce81a45eb52dd247573fb1a /src/cjr_print.sml
parent36cf7530768eeec286e4a07a5794c0e1b27b8c3f (diff)
Urlify unit values as underscores, to avoid confusing parser
Diffstat (limited to 'src/cjr_print.sml')
-rw-r--r--src/cjr_print.sml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index d7416616..5ef891db 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -952,7 +952,7 @@ fun unurlify fromClient env (t, loc) =
newline,
string ":",
space,
- string ("(uw_error(ctx, FATAL, \"Error unurlifying list: %s\", request), NULL))));"),
+ string ("(uw_error(ctx, FATAL, \"Error unurlifying list: %s\", *request), NULL))));"),
newline],
string "}",
newline,