Implement getPath in terms of unfoldr

src/ShellCheck/ASTLib.hs

@@ -897,10 +897,9 @@ getUnmodifiedParameterExpansion t =
         _ -> Nothing
 
 --- A list of the element and all its parents up to the root node.
-getPath tree t = t :
+getPath tree t = t : unfoldr go t
-    case Map.lookup (getId t) tree of
+  where
-        Nothing     -> []
+    go s = (\x -> (x,x)) <$> Map.lookup (getId s) tree
-        Just parent -> getPath tree parent
 
 isClosingFileOp op =
     case op of