renderTreeView: renderPrefix

1 files changed, 1 insertions, 1 deletions

diff --git a/test5.hs b/test5.hs
index ffb168e..6f01838 100644
--- a/test5.hs
+++ b/test5.hs
@@ -177,7 +177,7 @@ render q@State{..} =
       , headBuffer = newHeadBuf
       }
   where
-    newTreeBuf = renderTreeView now (Z.label cursor) (Z.toTree cursor)
+    newTreeBuf = renderTreeView now cursor (Z.root cursor)
     newHeadBuf =
         [ Plain (show screenWidth) <> "x" <> Plain (show screenHeight)
           <> " " <> Plain (show $ linearPos cursor - yoffset)