diff options
Diffstat (limited to 'TreeView.hs')
-rw-r--r-- | TreeView.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/TreeView.hs b/TreeView.hs index 99bd843..f22ca35 100644 --- a/TreeView.hs +++ b/TreeView.hs @@ -99,6 +99,10 @@ fromSearchResults query = Node (TVSearch query) . map (\r -> Node (TVSearchResult r) []) +fromMessageForest :: Forest Message -> Forest TreeView +fromMessageForest = map fromMessageTree + + fromMessageTree :: Tree Message -> Tree TreeView fromMessageTree (Node m ms) = Node m' ms' |