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