From cb8229edc65b8eb6e85932efcfbc6f1c44196a39 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 4 Jan 2015 14:39:55 +0100
Subject: renderTreeView: renderPrefix

---
 TreeView.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'TreeView.hs')

diff --git a/TreeView.hs b/TreeView.hs
index 3ea7fd4..a03b3ee 100644
--- a/TreeView.hs
+++ b/TreeView.hs
@@ -5,6 +5,7 @@
 module TreeView
     ( TreeView (..)
     , getMessage
+    , isTVMessage
     , isTVSearchResult
     , fromSearchResults
     , fromMessageForest
@@ -69,6 +70,12 @@ getMessage = \case
     _ -> Nothing
 
 
+isTVMessage :: TreeView -> Bool
+isTVMessage = \case
+    TVMessage _ -> True
+    _ -> False
+
+
 isTVSearchResult :: TreeView -> Bool
 isTVSearchResult (TVSearchResult _) = True
 isTVSearchResult _ = False
-- 
cgit v1.2.3