From ef48d081dfd0e817c4959dbbd49929ae760a310e Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sat, 31 Jan 2015 15:51:57 +0100
Subject: Notmuch: replace {un,}setTag by notmuchTag

---
 Notmuch/SearchResult.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Notmuch/SearchResult.hs')

diff --git a/Notmuch/SearchResult.hs b/Notmuch/SearchResult.hs
index 3a75e96..52b8c20 100644
--- a/Notmuch/SearchResult.hs
+++ b/Notmuch/SearchResult.hs
@@ -7,6 +7,7 @@ import Data.Aeson
 import Data.Text
 import Data.Time.Clock
 import Data.Time.Clock.POSIX
+import Notmuch.Class
 
 
 newtype ThreadID = ThreadID { unThreadID :: String }
@@ -33,6 +34,10 @@ instance Eq SearchResult where
         searchThread s1 == searchThread s2
 
 
+instance HasNotmuchId SearchResult where
+    notmuchId = unThreadID . searchThread
+
+
 instance FromJSON SearchResult where
     parseJSON (Object v) = SearchResult <$> ((ThreadID . ("thread:"++)) <$> v .: "thread")
                                         <*> (posixSecondsToUTCTime . fromInteger <$> v .: "timestamp")
-- 
cgit v1.2.3