mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove excess doubled parens in match description

Browse source 
Sponsored-by: Dartmouth College's DANDI project
This commit is contained in:
Joey Hess 2023-07-25 13:55:01 -04:00
parent f280d38045
commit fbf19338be
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Utility/Matcher.hs
View file

@ -237,9 +237,20 @@ describeMatchDesc descop = unwords . go . simplify True
-- (not foo) => not foo
simplify _ (MatchedOpen:MatchedNot:o@(MatchedOperation {}):MatchedClose:rest) =
MatchedNot:o:simplify False rest
-- ((foo bar)) => (foo bar)
simplify _ (MatchedOpen:MatchedOpen:rest) =
MatchedOpen : simplify False (removeclose (0 :: Int) rest)
simplify _ (v:rest) = v : simplify False rest
simplify _ v = v
removeclose n (MatchedOpen:rest) =
MatchedOpen : removeclose (n+1) rest
removeclose n (MatchedClose:rest)
| n > 0 = MatchedClose : removeclose (n-1) rest
| otherwise = rest
removeclose n (v:rest) = v : removeclose n rest
removeclose _ [] = []
prop_matcher_sane :: Bool
prop_matcher_sane = and
[ all (\m -> match (\b _ -> b) m ()) (map generate evaltrue)