diff options
| author | tv <tv@shackspace.de> | 2014-12-25 13:27:51 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2014-12-25 13:27:51 +0100 |
| commit | f0351105468c167f6ee838e145d3de3e06594eaa (patch) | |
| tree | d4fd7767ea560ea116c64bcc58f8f5f2cb42add9 | |
| parent | 9aacdda1f9b94aaa8f0770ebd32b623d8dba3345 (diff) | |
TreeView: cleanup
| -rw-r--r-- | TreeView.hs | 4 |
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) |