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

Allow tests to access token positions for fixes

Browse Source
This commit is contained in:
Vidar Holen
2018-12-16 13:05:19 -08:00
parent b47e083ee3
commit 5b3f17c29d
2 changed files with 22 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/ShellCheck/Analytics.hs
View File

@@ -199,8 +199,9 @@ checkUnqualifiedCommand _ _ _ = return ()
checkNode f = producesComments (runNodeAnalysis f)
producesComments :: (Parameters -> Token -> [TokenComment]) -> String -> Maybe Bool
producesComments f s = do
root <- pScript s
return . not . null $ runList (defaultSpec root) [f]
let pr = pScript s
prRoot pr
return . not . null $ runList (defaultSpec pr) [f]
-- Copied from https://wiki.haskell.org/Edit_distance
dist :: Eq a => [a] -> [a] -> Int