Mark prefix/postfix inc/dec as integers (fixes #2376)

This commit is contained in:
Vidar Holen 2021-11-14 16:39:32 -08:00
parent 4c186c20b9
commit d9a9d5db86
2 changed files with 5 additions and 6 deletions

View file

@ -2049,6 +2049,8 @@ 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"
prop_checkSpacefulness47= verifyNotTree checkSpacefulness "x=0; (( x-- )); echo $x"
prop_checkSpacefulness48= verifyNotTree checkSpacefulness "x=0; (( ++x )); echo $x"
data SpaceStatus = SpaceSome | SpaceNone | SpaceEmpty deriving (Eq)
instance Semigroup SpaceStatus where
@ -2139,7 +2141,6 @@ 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 []