From 66c096b62db95d96ef9552bd68f36df3054ebc3e Mon Sep 17 00:00:00 2001
From: Raúl Benencia <rul@kalgan.cc>
Date: Wed, 11 Sep 2013 10:46:41 -0300
Subject: Removed no longer needed imports
---
src/Lazymail/Handlers.hs | 6 ++----
src/Lazymail/State.hs | 4 +---
2 files changed, 3 insertions(+), 7 deletions(-)
(limited to 'src/Lazymail')
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
}
--
cgit v1.2.3