From 80d042e36a58eedb0df02cfce1c619744d9d9cf7 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 24 Dec 2014 21:52:15 +0100
Subject: replace {Open,Closed}Message by TVMessage

---
 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 3889e7c..63fe004 100644
--- a/Notmuch/Message.hs
+++ b/Notmuch/Message.hs
@@ -113,3 +113,7 @@ parseTree vs@(Array _) = do
     return $ TR.Node msg t
 parseTree _ = fail "Tree is not an array"
 
+
+-- message utilities
+isOpen :: Message -> Bool
+isOpen m = "open" `elem` messageTags m
-- 
cgit v1.2.3