From 26855c9b19327d009e6d8ce805b37657ef96403c Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 28 Dec 2014 03:36:43 +0100
Subject: store Trammel String in buffers

---
 TreeViewRaw.hs | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'TreeViewRaw.hs')

diff --git a/TreeViewRaw.hs b/TreeViewRaw.hs
index babd42d..9fc6c9e 100644
--- a/TreeViewRaw.hs
+++ b/TreeViewRaw.hs
@@ -1,7 +1,9 @@
 {-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module TreeViewRaw where
 
+import Data.Monoid
 import TreeView
 import Data.Tree
 import Trammel
@@ -13,20 +15,17 @@ import qualified Data.List as L
 import qualified Data.Map as M
 import qualified Data.Text as T
 
--- Maybe TreeView -> Tree TreeView -> Image
---hPutTreeView h cur tv =
---                treeImage (Just $ Z.label cursor) (Z.toTree cursor)
 
-renderTreeView :: TreeView -> Tree TreeView -> [String]
+renderTreeView :: TreeView -> Tree TreeView -> [Trammel String]
 renderTreeView cur _loc@(Node label children) =
     [ colorize $ renderTreeView1 hasFocus label ] ++
-    concatMap (map ("  "++) . renderTreeView cur) children
+    concatMap (map ("  "<>) . renderTreeView cur) children
   where
     hasFocus = cur == label
     colorize s =
         if hasFocus
-            then pp $ SGR [31] s
-            else pp s
+            then SGR [31] s
+            else s
 
 
 renderTreeView1 :: Bool -> TreeView -> Trammel String
-- 
cgit v1.2.3