From 39e76d0c83515a98f84f06b1c3b430d1e67cd1cd Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sat, 31 Jan 2015 14:49:25 +0100
Subject: Notmuch: "id:" and "thread:" are part of ID

---
 Notmuch/Message.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Notmuch/Message.hs')

diff --git a/Notmuch/Message.hs b/Notmuch/Message.hs
index d458c5f..29ca5ec 100644
--- a/Notmuch/Message.hs
+++ b/Notmuch/Message.hs
@@ -90,7 +90,7 @@ instance Eq Message where
 
 
 instance FromJSON Message where
-    parseJSON (Object v) = Message <$> v .: "id"
+    parseJSON (Object v) = Message <$> (MessageID . ("id:"<>) <$> v .: "id")
                                    <*> (posixSecondsToUTCTime . fromInteger <$> v .: "timestamp")
                                    <*> (M.mapKeys CI.mk <$> v .: "headers")
                                    <*> v .: "body"
-- 
cgit v1.2.3