diff options
| author | tv <tv@shackspace.de> | 2014-12-24 21:52:15 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2014-12-24 21:52:15 +0100 |
| commit | 80d042e36a58eedb0df02cfce1c619744d9d9cf7 (patch) | |
| tree | a3e708d97c0229d8666ba06b0590a3372dfec947 /Notmuch | |
| parent | 998864578605c2d99299072320208e731ed5099c (diff) | |
replace {Open,Closed}Message by TVMessage
Diffstat (limited to 'Notmuch')
| -rw-r--r-- | Notmuch/Message.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |