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/Message.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Notmuch/Message.hs')

diff --git a/Notmuch/Message.hs b/Notmuch/Message.hs
index 29ca5ec..dd1e809 100644
--- a/Notmuch/Message.hs
+++ b/Notmuch/Message.hs
@@ -9,6 +9,7 @@ import Data.Time.Calendar
 import Data.Time.Clock
 import Data.Time.Clock.POSIX
 import Data.Monoid
+import Notmuch.Class
 import qualified Data.Text as T
 import qualified Data.Map as M
 import qualified Data.CaseInsensitive as CI
@@ -88,6 +89,9 @@ instance Eq Message where
     a == b = messageId a == messageId b
 
 
+instance HasNotmuchId Message where
+    notmuchId = unMessageID . messageId
+
 
 instance FromJSON Message where
     parseJSON (Object v) = Message <$> (MessageID . ("id:"<>) <$> v .: "id")
-- 
cgit v1.2.3