diff options
| author | Raúl Benencia <rul@kalgan.cc> | 2013-09-11 10:46:41 -0300 |
|---|---|---|
| committer | Raúl Benencia <rul@kalgan.cc> | 2013-09-11 10:46:41 -0300 |
| commit | 66c096b62db95d96ef9552bd68f36df3054ebc3e (patch) | |
| tree | 0df64b679c57a88888c180ceb7adf76e453e3aa4 /src/Lazymail/Handlers.hs | |
| parent | 931f39e470ff0aae732ff60abb2947481989620e (diff) | |
Removed no longer needed imports
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 } |