From 11d3bf814d5eef82de34e2b987de3fb6293b59d2 Mon Sep 17 00:00:00 2001 From: tv Date: Fri, 2 Jan 2015 00:48:25 +0100 Subject: remove messageDateRel --- Notmuch/Message.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Notmuch') diff --git a/Notmuch/Message.hs b/Notmuch/Message.hs index 63fe004..cc87801 100644 --- a/Notmuch/Message.hs +++ b/Notmuch/Message.hs @@ -68,7 +68,6 @@ instance FromJSON MessagePart where data Message = Message { messageId :: MessageID - , messageDateRel :: T.Text , messageTime :: UTCTime , messageHeaders :: MessageHeaders , messageBody :: [MessagePart] @@ -86,7 +85,6 @@ instance Eq Message where instance FromJSON Message where parseJSON (Object v) = Message <$> v .: "id" - <*> v .: "date_relative" <*> (posixSecondsToUTCTime . fromInteger <$> v .: "timestamp") <*> (M.mapKeys CI.mk <$> v .: "headers") <*> v .: "body" @@ -94,7 +92,7 @@ instance FromJSON Message where <*> v .: "match" <*> v .: "tags" <*> v .: "filename" - parseJSON (Array _) = return $ Message (MessageID "") "" defTime M.empty [] True False [] "" + parseJSON (Array _) = return $ Message (MessageID "") defTime M.empty [] True False [] "" where defTime = UTCTime (ModifiedJulianDay 0) (fromInteger 0) parseJSON x = fail $ "Error parsing message: " ++ show x -- cgit v1.2.3