From 6d64fe19f476a841e13efc2ccc3615456882d7cf Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 25 Dec 2014 13:29:25 +0100
Subject: test3: cleanup

---
 test3.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/test3.hs b/test3.hs
index e35db25..9cda1a3 100644
--- a/test3.hs
+++ b/test3.hs
@@ -119,7 +119,7 @@ main =
                 --string def (maybe "Nothing" describe (focusNext v c)) <->
                 treeImage (Just $ Z.label c) (Z.toTree c)
             pic = picForImage img
-            v = Z.root c
+            --v = Z.root c
         update vty pic
         nextEvent vty >>= \e -> case e of
             EvKey KUp [] ->
@@ -141,7 +141,7 @@ main =
 
                 let loc = c
                     Just sr = findParent isTVSearchResult loc
-                    Just sr0 = Z.firstChild sr -- TODO can there be only one (thread per sr)?
+                    --Just sr0 = Z.firstChild sr -- TODO can there be only one (thread per sr)?
                     TVSearchResult the_sr = Z.label sr
                     ThreadID tid = searchThread the_sr
 
@@ -165,6 +165,9 @@ main =
 
                 rec vty 0 $ Z.modifyTree (\(Node l _) -> Node l t_) loc
 
+            _ ->
+                -- TODO make some noise
+                rec vty (i + 1) c
 
 treeImage :: Maybe TreeView -> Tree TreeView -> Image
 --treeImage t_cur (Node n ns) =
-- 
cgit v1.2.3