7x31
/
shellcheck
mirror of https://github.com/koalaman/shellcheck.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Simplify <> for SpaceStatus

This commit is contained in:
Joseph C. Sible 2020-02-09 20:45:05 -05:00
parent 057cc714b3
commit a6efd02807
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ShellCheck/Analytics.hs
View File

@ -1804,13 +1804,11 @@ prop_checkSpacefulness40= verifyNotTree checkSpacefulness "a=$((x+1)); echo $a"
data SpaceStatus = SpaceSome | SpaceNone | SpaceEmpty deriving (Eq) data SpaceStatus = SpaceSome | SpaceNone | SpaceEmpty deriving (Eq)
instance Semigroup SpaceStatus where instance Semigroup SpaceStatus where
(<>) x y = SpaceNone <> SpaceNone = SpaceNone
case (x,y) of SpaceSome <> _ = SpaceSome
(SpaceNone, SpaceNone) -> SpaceNone _ <> SpaceSome = SpaceSome
(SpaceSome, _) -> SpaceSome SpaceEmpty <> x = x
(_, SpaceSome) -> SpaceSome x <> SpaceEmpty = x
(SpaceEmpty, x) -> x
(x, SpaceEmpty) -> x
instance Monoid SpaceStatus where instance Monoid SpaceStatus where
mempty = SpaceEmpty mempty = SpaceEmpty
mappend = (<>) mappend = (<>)