fix redraw skipping bug and drop unused packages

1 files changed, 1 insertions, 2 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