From f0351105468c167f6ee838e145d3de3e06594eaa Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 25 Dec 2014 13:27:51 +0100
Subject: TreeView: cleanup

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

(limited to 'TreeView.hs')

diff --git a/TreeView.hs b/TreeView.hs
index 4d08721..99bd843 100644
--- a/TreeView.hs
+++ b/TreeView.hs
@@ -32,7 +32,6 @@ import qualified Data.Map as M
 
 import Notmuch.Message
 import Notmuch.SearchResult
-import Safe
 
 
 type LineNr = Int
@@ -186,7 +185,7 @@ treeViewImage hasFocus = \case
         string sColor s
 
     TVSearchResult sr -> do
-        let ThreadID tid = searchThread sr
+        --let ThreadID tid = searchThread sr
         --string srColor tid
         -- <|>
         --translateX 1
@@ -254,6 +253,7 @@ treeViewImage hasFocus = \case
 
 
 
+padl :: Int -> a -> [a] -> [a]
 padl n c s =
     if length s < n
         then padl n c (c:s)
-- 
cgit v1.2.3