diff options
Diffstat (limited to 'src/Lazymail/Handlers.hs')
| -rw-r--r-- | src/Lazymail/Handlers.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Lazymail/Handlers.hs b/src/Lazymail/Handlers.hs index dc1d389..15dbf4c 100644 --- a/src/Lazymail/Handlers.hs +++ b/src/Lazymail/Handlers.hs @@ -38,10 +38,8 @@ previousMode' MaildirMode = (=<<) put $ get >>= \st -> return st { exitRequested previousMode' EmailMode = do st <- get if (triggerUpdateIn . indexState $ st) - then do - advanceMode - solveIndexUpdate - else put $ st { mode = IndexMode } + then advanceMode >> solveIndexUpdate + else put $ st { mode = IndexMode } previousMode' IndexMode = do st <- get let ist = (indexState st) { selectedRowIn = 0, scrollRowIn = 0 } |