Consider all forms of TA_Assignment to remove spaces (fixes #2364)

This commit is contained in:
Vidar Holen 2021-10-30 17:47:30 -07:00
parent 0dd5c67bdf
commit efd49e486f
1 changed files with 2 additions and 0 deletions

View File

@ -2048,6 +2048,7 @@ prop_checkSpacefulness42= verifyNotTree checkSpacefulness "run $1 --flags"
prop_checkSpacefulness43= verifyNotTree checkSpacefulness "$foo=42"
prop_checkSpacefulness44= verifyTree checkSpacefulness "#!/bin/sh\nexport var=$value"
prop_checkSpacefulness45= verifyNotTree checkSpacefulness "wait -zzx -p foo; echo $foo"
prop_checkSpacefulness46= verifyNotTree checkSpacefulness "x=0; (( x += 1 )); echo $x"
data SpaceStatus = SpaceSome | SpaceNone | SpaceEmpty deriving (Eq)
instance Semigroup SpaceStatus where
@ -2138,6 +2139,7 @@ checkSpacefulness' onFind params t =
where
emit x = tell [x]
writeF _ (TA_Assignment {}) name _ = setSpaces name SpaceNone >> return []
writeF _ _ name (DataString SourceExternal) = setSpaces name SpaceSome >> return []
writeF _ _ name (DataString SourceInteger) = setSpaces name SpaceNone >> return []