diff options
| author | tv <tv@shackspace.de> | 2014-12-25 19:50:11 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2014-12-25 19:50:11 +0100 |
| commit | 8ba04b360b69ad341c1cc42534ea826018eaaced (patch) | |
| tree | 50f0e7d96c11628a5970a0959c7343cd451e3bbb /TreeView.hs | |
| parent | 0299524420701b1225c273c7ceff1f8093a3028b (diff) | |
Notmuch.getThread -> IO (Forest Message)
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' |