diff options
| -rw-r--r-- | src/Lazymail/Handlers.hs | 6 | ||||
| -rw-r--r-- | src/Lazymail/State.hs | 4 |
2 files changed, 3 insertions, 7 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 } diff --git a/src/Lazymail/State.hs b/src/Lazymail/State.hs index bf1e3c2..fb640a6 100644 --- a/src/Lazymail/State.hs +++ b/src/Lazymail/State.hs @@ -9,9 +9,7 @@ module Lazymail.State where import Codec.MIME.Type(MIMEValue, nullMIMEValue) -import Text.ParserCombinators.Parsec.Rfc2822(Message, GenericMessage(..)) import UI.NCurses(ColorID(..), defaultColorID) -import Network.Email.Mailbox(Flag(..), Flags) import System.FilePath import Lazymail.Types @@ -29,7 +27,7 @@ initialState = LazymailState { , indexState = initialIndexState , composeState = initialComposeState , emailState = initialEmailState - , inputState = initialInputState + , inputState = initialInputState , colorStyle = initialColorStyle } |