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