fourmolu-0.2.0.0: data/examples/declaration/value/function/list-notation-2-four-out.hs

-- A list of the element and all its parents up to the root node.
getPath tree t =
    t :
    case Map.lookup (getId t) tree of
        Nothing -> []
        Just parent -> getPath tree parent