From ca8439b6787eb238d7b07544dfc728488f3c71b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Tue, 22 Sep 2020 23:40:00 +0200
Subject: lint

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

(limited to 'Action.hs')

diff --git a/Action.hs b/Action.hs
index 7ca023d..95bc7ca 100644
--- a/Action.hs
+++ b/Action.hs
@@ -193,9 +193,8 @@ topOverrun State{..} =
 
 botOverrun :: State -> Int
 botOverrun State{..} =
-    max 0 (linearPos cursor - yoffset - (screenHeight - (length headBuffer) - 1))
+    max 0 (linearPos cursor - yoffset - (screenHeight - length headBuffer - 1))
 
 
 setSubForest :: Tree.Forest a -> Tree.Tree a -> Tree.Tree a
 setSubForest sf t = t { Tree.subForest = sf }
-
-- 
cgit v1.2.3