Merge pull request #12 from mtlstats/fit

fit report to screen
2019-09-05 12:59:52 -04:00 · 2019-09-05 12:59:52 -04:00 · edf52ca3ff
parent 9b5bbb8524 f8519c31ce
commit edf52ca3ff
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