7x31/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck.git synced 2025-08-08 20:51:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

Implement getPath in terms of unfoldr

Browse Source
This commit is contained in:
Joseph C. Sible
2023-12-31 01:59:53 -05:00
parent 980e7d3ca8
commit e1ad063834
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/ShellCheck/ASTLib.hs
View File

@@ -897,10 +897,9 @@ getUnmodifiedParameterExpansion t =
_ -> Nothing _ -> Nothing
--- A list of the element and all its parents up to the root node. --- 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 = isClosingFileOp op =
case op of case op of