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/SearchResult.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Notmuch/SearchResult.hs')

diff --git a/Notmuch/SearchResult.hs b/Notmuch/SearchResult.hs
index 6d3f9be..3a75e96 100644
--- a/Notmuch/SearchResult.hs
+++ b/Notmuch/SearchResult.hs
@@ -34,7 +34,7 @@ instance Eq SearchResult where
 
 
 instance FromJSON SearchResult where
-    parseJSON (Object v) = SearchResult <$> v .: "thread"
+    parseJSON (Object v) = SearchResult <$> ((ThreadID . ("thread:"++)) <$> v .: "thread")
                                         <*> (posixSecondsToUTCTime . fromInteger <$> v .: "timestamp")
                                         <*> v .: "date_relative"
                                         <*> v .:? "subject" .!= ""
-- 
cgit v1.2.3