github/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck synced 2025-08-14 02:27:30 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Warn about missing shebangs.

Browse source
This commit is contained in:
Vidar Holen 2014-08-09 17:32:42 -07:00
commit 8494509150
8 changed files with 117 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ShellCheck/Parser.hs
View file

@ -1801,8 +1801,7 @@ readLetSuffix = many1 (readIoRedirect <|> try readLetExpression <|> readCmdWord)
-- Get whatever a parser would parse as a string
readStringForParser parser = do
pos <- lookAhead (parser >> getPosition)
s <- readUntil pos
return s
readUntil pos
where
readUntil endPos = anyChar `reluctantlyTill` (getPosition >>= guard . (== endPos))
@ -1995,11 +1994,11 @@ readScript = do
return $ T_Script id sb commands;
} <|> do {
parseProblem WarningC 1014 "Couldn't read any commands.";
return $ T_Script id sb [T_EOF id];
return $ T_Script id sb []
}
else do
many anyChar
return $ T_Script id sb [T_EOF id];
return $ T_Script id sb [];
where
basename s = reverse . takeWhile (/= '/') . reverse $ s