diff options
Diffstat (limited to 'exn_handler.sml')
| -rw-r--r-- | exn_handler.sml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/exn_handler.sml b/exn_handler.sml index 32ad20b..52a2c5c 100644 --- a/exn_handler.sml +++ b/exn_handler.sml @@ -18,11 +18,10 @@ structure GlobalExnHandler: sig val handler: exn -> unit end = struct fun ioExn (IO.Io { name, function = _, cause }) = let - open OS val prefix = name ^ ": " val reason = case cause of - SysErr (str, _) => str + OS.SysErr (str, _) => str | _ => exnMessage cause in printLn $ prefix ^ reason |