From 258848b4ec444a7e5486c66ee79818ea6899f554 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Mon, 2 Dec 2024 23:04:22 +1100
Subject: fix redraw skipping bug and drop unused packages

---
 jterm.hs     | 3 +--
 package.yaml | 2 --
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/jterm.hs b/jterm.hs
index ac012af..ff997fa 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -412,11 +412,10 @@ handleEvent buffer display win bgcolour fgcolour linecolour selcolour font event
     T toAppend -> do
       let noesc = stripAnsiEscapeCodes toAppend
           expandedTabs = T.intercalate "\n" $ map expandTabs $ T.splitOn "\n" noesc
-          pl = pos b & linePos
           cl = ptycursor b & linePos
           linePos p = content b & R.splitAt p & fst & R.lengthAsPosition & posLine
       delins' True (ptycursor b) (ptycursor b) $ R.fromText expandedTabs
-      when (pl + pageheight > cl) redraw
+      when (pos b + pageheight > cl) redraw
     Notify -> do
       prop <- internAtom display "JTERM_CLIPBOARD" False
       getWindowProperty8 display prop win >>= \case
diff --git a/package.yaml b/package.yaml
index e040603..70f2a4f 100644
--- a/package.yaml
+++ b/package.yaml
@@ -14,8 +14,6 @@ dependencies:
   - text
   - utf8-string
   - bytestring
-  - mtl
-  - transformers
   - strip-ansi-escape
   - fusion-plugin
   - containers
-- 
cgit v1.2.3