fit report to screen

2019-09-05 12:22:25 -04:00 · 2019-09-05 12:22:25 -04:00 · f8519c31ce
parent cc377492bb
commit f8519c31ce
1 changed files with 2 additions and 1 deletions
--- a/src/Mtlstats/Control.hs
+++ b/src/Mtlstats/Control.hs
@ -132,7 +132,8 @@ dispatch s = case s^.progMode of

    | otherwise -> Controller
      { drawController = \s -> do
-        C.drawString $ report 72 s
+        (_, cols) <- C.windowSize
+        C.drawString $ report (fromInteger $ pred cols) s
        return C.CursorInvisible
      , handleController = \e -> do
        when