From 226f58656b4b7f92f6de9a817ab9106937e061e9 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Mon, 24 Mar 2025 22:37:21 +0100
Subject: Simplified stream

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

(limited to 'exn_handler.sml')

diff --git a/exn_handler.sml b/exn_handler.sml
index 2e3a0b2..32ad20b 100644
--- a/exn_handler.sml
+++ b/exn_handler.sml
@@ -37,7 +37,7 @@ structure GlobalExnHandler: sig val handler: exn -> unit end = struct
       FsmTableIsTooSmall =>
           eprint "fsm table is too small. Increate 'maxState' value"
     | IO.Io _ => ioExn e
-    | TkErrorAug (pos, msg) => eprint $ Stream.pos2str pos ^ ": " ^ msg
+    | TkErrorAug (pos, msg) => eprint $ Stream.ppos2str pos ^ ": " ^ msg
     | _ => otherExn e;
     exit 255)
   end
-- 
cgit v1.2.3