diff options
Diffstat (limited to 'src/errormsg.sml')
| -rw-r--r-- | src/errormsg.sml | 14 |
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 |