Removed no longer needed imports

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
 }