vvalueroot :: Functor f => (a -> f a) -> Tree a -> f (Tree a)Peek#A Lens that focuses on the root of a Tree.Example1 expression>>> view root $ Node 42 []42
vvaluebranches :: Functor f => ([Tree a] -> f [Tree a]) -> Tree a -> f (Tree a)Peek#A Lens returning the direct descendants of the root of a Treeview branches ≡ subForest