lift screen size restrictions

This commit is contained in:
nek0 2018-10-27 03:04:02 +02:00
parent 54406980dd
commit 4c5ae86a01

View file

@ -92,7 +92,7 @@ handleInput (Just char) state = do
draw :: State -> IO (V.Vector (V.Vector Char)) draw :: State -> IO (V.Vector (V.Vector Char))
draw (State ppos prot _ _) = do draw (State ppos prot _ _) = do
(Just (Window h w)) <- TS.size :: IO (Maybe (Window Int)) (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) out = (V.generate (fromIntegral dh)
((\mh -> ((\mh ->
V.map V.map