diff options
| author | Raúl Benencia <rul@kalgan.cc> | 2013-09-11 11:34:24 -0300 |
|---|---|---|
| committer | Raúl Benencia <rul@kalgan.cc> | 2013-09-11 11:34:24 -0300 |
| commit | 13ce94032bf0e7891bd1c2f4c94a857226ec66ef (patch) | |
| tree | 8e964f7b44cb59d5b954a7088d5087f505be4f3c /src/Lazymail/Screen.hs | |
| parent | 8cd86662618b1d6ea2e4dee7d4b09eaf422e9cd8 (diff) | |
Fix color bug
Diffstat (limited to 'src/Lazymail/Screen.hs')
| -rw-r--r-- | src/Lazymail/Screen.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Lazymail/Screen.hs b/src/Lazymail/Screen.hs index a25c880..3d82768 100644 --- a/src/Lazymail/Screen.hs +++ b/src/Lazymail/Screen.hs @@ -87,7 +87,7 @@ screenLoop = do performUpdate :: LazymailUpdate LazymailState performUpdate = do st <- get - liftUpdate $ clearMain (scrRowsAsInteger st) (screenColumns st) + liftUpdate $ clearMain (baseColorID . colorStyle $ st) (scrRowsAsInteger st) (screenColumns st) drawMode (mode st) drawStatus get @@ -141,7 +141,8 @@ drawSimpleRow st path str | (mode st) == MaildirMode = drawString $ normalizeLen drawCroppedString st str {- Empty the whole window. Useful when changing modes. -} -clearMain rows columns = do +clearMain baseCol rows columns = do + setColor baseCol drawEmptyLine 0 moveCursor 0 0 where |