summaryrefslogtreecommitdiff
path: root/src/errormsg.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2012-05-06 12:37:43 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2012-05-06 12:37:43 -0400
commit44d64f9ce5ee0c4f4bce154ec2bd7f93bb26356b (patch)
tree2f56820b3f63c032bb741015bc8d64f070ea6aa7 /src/errormsg.sml
parentb1b6e894b77717f33af8e402eba712b9b19ef46a (diff)
Fix from Edward Yang to generation of 404 errors in FastCGI
Diffstat (limited to 'src/errormsg.sml')
-rw-r--r--src/errormsg.sml14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/errormsg.sml b/src/errormsg.sml
index f9ed71e8..8f3c93b1 100644
--- a/src/errormsg.sml
+++ b/src/errormsg.sml
@@ -95,13 +95,13 @@ fun error s = (TextIO.output (TextIO.stdErr, s);
TextIO.output1 (TextIO.stdErr, #"\n");
errors := true)
-fun errorAt span s = (TextIO.output (TextIO.stdErr, #file span);
- TextIO.output (TextIO.stdErr, ":");
- TextIO.output (TextIO.stdErr, posToString (#first span));
- TextIO.output (TextIO.stdErr, ": (to ");
- TextIO.output (TextIO.stdErr, posToString (#last span));
- TextIO.output (TextIO.stdErr, ") ");
- error s)
+fun errorAt (span : span) s = (TextIO.output (TextIO.stdErr, #file span);
+ TextIO.output (TextIO.stdErr, ":");
+ TextIO.output (TextIO.stdErr, posToString (#first span));
+ TextIO.output (TextIO.stdErr, ": (to ");
+ TextIO.output (TextIO.stdErr, posToString (#last span));
+ TextIO.output (TextIO.stdErr, ") ");
+ error s)
fun errorAt' span s = errorAt (spanOf span) s
end