From 8ba04b360b69ad341c1cc42534ea826018eaaced Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 25 Dec 2014 19:50:11 +0100
Subject: Notmuch.getThread -> IO (Forest Message)

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

(limited to 'TreeView.hs')

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'
-- 
cgit v1.2.3