Consider all forms of TA_Assignment to remove spaces (fixes #2364)
This commit is contained in:
parent
0dd5c67bdf
commit
efd49e486f
|
@ -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 []
|
||||
|
||||
|
|
Loading…
Reference in New Issue