diff options
| author | tv <tv@shackspace.de> | 2015-01-04 14:39:55 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-01-04 14:39:55 +0100 |
| commit | cb8229edc65b8eb6e85932efcfbc6f1c44196a39 (patch) | |
| tree | 13321b3be543e857949c1a39a6ff3f22106379cd /TreeView.hs | |
| parent | 95d67c694aac052bef162eb0d07422ab575d94e5 (diff) | |
renderTreeView: renderPrefix
Diffstat (limited to 'TreeView.hs')
| -rw-r--r-- | TreeView.hs | 7 |
1 files changed, 7 insertions, 0 deletions
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 |