-- , " "
-- , s ]
parent <- getNodeWith r (Proxy :: Proxy HyperdataAny)
- let mParent = _node_parentId parent
+ let mParent = _node_parent_id parent
case mParent of
Nothing -> pure []
Just parentId -> do
-> Tree NodeTree
toTree' m' root =
TreeN (toNodeTree root) $
- -- | Lines below are equivalent computationally but not semantically
+ -- Lines below are equivalent computationally but not semantically
-- m' ^.. at (Just $ _dt_nodeId root) . _Just . each . to (toTree' m')
toListOf (at (Just $ _dt_nodeId root) . _Just . each . to (toTree' m')) m'