Implement client actions properly

src/Forest/Client/Tree.hs

@@ -5,6 +5,7 @@ module Forest.Client.Tree
   , renderTree
   -- * Focused element
   , getCurrent
+  , getCurrentPath
   , moveUp
   , moveDown
   -- * Folding
@@ -85,6 +86,10 @@ getCurrent :: Tree -> Node
 -- We rely on the invariant that the focused node always exists
 getCurrent tree = fromJust $ applyPath (treeFocused tree) (treeNode tree)
 
+-- | Get the path of the currently focused node.
+getCurrentPath :: Tree -> Path
+getCurrentPath = treeFocused
+
 flatten :: Node -> [Path]
 flatten node =
   let flattenedChildren =