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)

---
 Notmuch.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Notmuch.hs')

diff --git a/Notmuch.hs b/Notmuch.hs
index 309f411..0d02782 100644
--- a/Notmuch.hs
+++ b/Notmuch.hs
@@ -114,7 +114,7 @@ showThread tid = do
     Prelude.putStrLn $ showTree $ ttt
 
 
-getThread :: String -> IO (Tree Message)
+getThread :: String -> IO (Forest Message)
 getThread tid = do
     c' <- notmuch [ "show", "--format=json", "--format-version=2"
                    , "thread:" <> tid ]
@@ -123,7 +123,7 @@ getThread tid = do
                       Left err -> error err
                       Right x -> x
         --threadsF = map threadForest threads
-        ttt = head $ threadForest $ head $ threads
+        ttt = threadForest $ head $ threads
     return ttt
 
 
-- 
cgit v1.2.3