summaryrefslogtreecommitdiff
path: root/jterm.hs
diff options
context:
space:
mode:
Diffstat (limited to 'jterm.hs')
-rw-r--r--jterm.hs3
1 files changed, 1 insertions, 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