Get rid of a dangerous partial function from checkSpacefulnessCfg'

This commit is contained in:
Joseph C. Sible 2023-05-24 16:38:53 -04:00
parent 824c802b63
commit f03c437e2f
1 changed files with 3 additions and 6 deletions

View File

@ -2134,7 +2134,8 @@ checkSpacefulnessCfg' dirtyPass params token@(T_DollarBraced id _ list) =
addDoubleQuotesAround params token
where
name = getBracedReference $ concat $ oversimplify list
bracedString = concat $ oversimplify list
name = getBracedReference bracedString
parents = parentMap params
needsQuoting =
not (isArrayExpansion token) -- There's another warning for this
@ -2153,14 +2154,10 @@ checkSpacefulnessCfg' dirtyPass params token@(T_DollarBraced id _ list) =
|| CF.spaceStatus (CF.variableValue state) == CF.SpaceStatusClean
isDefaultAssignment parents token =
let modifier = getBracedModifier $ bracedString token in
let modifier = getBracedModifier bracedString in
any (`isPrefixOf` modifier) ["=", ":="]
&& isParamTo parents ":" token
-- Given a T_DollarBraced, return a simplified version of the string contents.
bracedString (T_DollarBraced _ _ l) = concat $ oversimplify l
bracedString _ = error $ pleaseReport "bracedString on non-variable"
checkSpacefulnessCfg' _ _ _ = return ()