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

---
 Core.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Core.hs')

diff --git a/Core.hs b/Core.hs
index d08f55c..53f619c 100644
--- a/Core.hs
+++ b/Core.hs
@@ -181,12 +181,12 @@ render0 _q@State{..} = do
             map (Blessings.take screenWidth . Blessings.drop xoffset) $
             take screenHeight $
             headBuffer ++ drop yoffset treeBuffer
-    buffer ++ take (screenHeight - length buffer) (repeat "~")
+    buffer ++ replicate (screenHeight - length buffer) "~"
 
 
 redraw :: State -> IO ()
 redraw q@State{..} = do
-    hPutStr stdout $ map (sub '\t' ' ') $ "\ESC[H" ++ (pp $ mintercalate "\n" $ map eraseRight $ render0 q)
+    hPutStr stdout $ map (sub '\t' ' ') $ "\ESC[H" ++ pp (mintercalate "\n" $ map eraseRight $ render0 q)
     hFlush stdout
   where
     sub x x' c = if c == x then x' else c
-- 
cgit v1.2.3