From 917de9c6df342d032e2b05238c7ea923da2772db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Sun, 1 Sep 2013 13:16:54 -0300
Subject: towards mime library

---
 State.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'State.hs')

diff --git a/State.hs b/State.hs
index d04871f..357a516 100644
--- a/State.hs
+++ b/State.hs
@@ -8,6 +8,7 @@
 
 module 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)
@@ -56,7 +57,7 @@ data EmailState = EmailState {
     scrollRowEm    :: Int
   , bodyStartRow   :: Int
   , emailLines     :: [String]
-  , currentEmail   :: Message
+  , currentEmail   :: MIMEValue
 }
 
 data ColorStyle = ColorStyle {
@@ -103,7 +104,7 @@ initialEmailState = EmailState {
     scrollRowEm    = 0
   , bodyStartRow  = 0
   , emailLines     = []
-  , currentEmail   = Message [] "Dummy email"
+  , currentEmail   = nullMIMEValue
 }
 
 initialComposeState = ComposeState {
-- 
cgit v1.2.3