From 6bc3b1d517980b16fffc55b46bb93bc8106fdc05 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Fri, 18 Oct 2024 14:02:31 +1100
Subject: remove debugging code

---
 jterm.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/jterm.hs b/jterm.hs
index 8b1700d..80ea684 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -32,7 +32,6 @@ import qualified Streamly.Data.Stream.Prelude as S
 import System.Environment
 import System.IO.Unsafe
 import System.Posix.Pty
-import Debug.Trace
 
 doubleClickDelay = 300
 
@@ -328,7 +327,7 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do
           -- middle click down
           case bsearch selstr (content b) (start -. 1) of
             Just p -> do
-              put $ b {cursor = join traceShow (p + start - end, p), pos = min (pos b) $ R.lengthInLines (R.splitAt p (content b) & fst) -. 1}
+              put $ b {cursor = (p + start - end, p), pos = min (pos b) $ R.lengthInLines (R.splitAt p (content b) & fst) -. 1}
             Nothing -> pure ()
         (0, 4) -> scrollup 3 -- scroll wheel
         (0, 5) -> scrolldown 3
-- 
cgit v1.2.3