From 4c5ae86a01b62c5e64398bc8170c4704313960b3 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 27 Oct 2018 03:04:02 +0200 Subject: [PATCH] lift screen size restrictions --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index eee93f3..f86de71 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -92,7 +92,7 @@ handleInput (Just char) state = do draw :: State -> IO (V.Vector (V.Vector Char)) draw (State ppos prot _ _) = do (Just (Window h w)) <- TS.size :: IO (Maybe (Window Int)) - let dims@(dw, dh) = (min 160 w, min 60 (h - 4)) -- if w >= h then (w, w `div` 2) else (w, h) + let dims@(dw, dh) = (w, (h - 4)) out = (V.generate (fromIntegral dh) ((\mh -> V.map