From 11e14dd4b93154964c87fc97cfcee62c52edf97a Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Thu, 27 Mar 2025 14:46:47 +0100
Subject: Number constant parser

---
 exn_handler.sml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'exn_handler.sml')

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
-- 
cgit v1.2.3