fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fit report to screen

This commit is contained in:
Jonathan Lamothe 2019-09-05 12:22:25 -04:00
parent cc377492bb
commit f8519c31ce
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Mtlstats/Control.hs
View File

@ -132,7 +132,8 @@ dispatch s = case s^.progMode of
| otherwise -> Controller | otherwise -> Controller
{ drawController = \s -> do { drawController = \s -> do
C.drawString $ report 72 s (_, cols) <- C.windowSize
C.drawString $ report (fromInteger $ pred cols) s
return C.CursorInvisible return C.CursorInvisible
, handleController = \e -> do , handleController = \e -> do
when when