summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-12-25 13:27:51 +0100
committertv <tv@shackspace.de>2014-12-25 13:27:51 +0100
commitf0351105468c167f6ee838e145d3de3e06594eaa (patch)
treed4fd7767ea560ea116c64bcc58f8f5f2cb42add9
parent9aacdda1f9b94aaa8f0770ebd32b623d8dba3345 (diff)
TreeView: cleanup
-rw-r--r--TreeView.hs4
1 files changed, 2 insertions, 2 deletions
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)