This commit is contained in:
Vanessa McHale 2018-04-02 11:48:21 -05:00
parent cf39adff75
commit 08aab3c161
1 changed files with 3 additions and 4 deletions

View File

@ -466,7 +466,7 @@ getModifiedVariables t =
_ -> Nothing _ -> Nothing
guard . not . null $ str guard . not . null $ str
return (t, token, str, DataString $ SourceChecked) return (t, token, str, DataString SourceChecked)
T_DollarBraced _ l -> maybeToList $ do T_DollarBraced _ l -> maybeToList $ do
let string = bracedString t let string = bracedString t
@ -691,9 +691,8 @@ isCommand token str = isCommandMatch token (\cmd -> cmd == str || ('/' : str) `
-- Compare a command to a literal. Like above, but checks full path. -- Compare a command to a literal. Like above, but checks full path.
isUnqualifiedCommand token str = isCommandMatch token (== str) isUnqualifiedCommand token str = isCommandMatch token (== str)
isCommandMatch token matcher = fromMaybe False $ do isCommandMatch token matcher = fromMaybe False $
cmd <- getCommandName token fmap matcher (getCommandName token)
return $ matcher cmd
-- Does this regex look like it was intended as a glob? -- Does this regex look like it was intended as a glob?
-- True: *foo* -- True: *foo*