diff options
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 |