diff options
author | Joey Hess <joey@kitenet.net> | 2014-04-26 19:25:05 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-04-26 19:25:05 -0400 |
commit | c7999da69b039829acc3b7da8005224af5bf6ed8 (patch) | |
tree | b17c7d897d95503f1af66efc98e28da1179d798c /Utility/Matcher.hs | |
parent | a885d67e97c63d8fff657f6eb8d503fd91b0b42c (diff) |
hlint
Diffstat (limited to 'Utility/Matcher.hs')
-rw-r--r-- | Utility/Matcher.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Utility/Matcher.hs b/Utility/Matcher.hs index eabc585f4..5647c3e30 100644 --- a/Utility/Matcher.hs +++ b/Utility/Matcher.hs @@ -64,10 +64,10 @@ generate = simplify . process MAny . tokenGroups process m [] = m process m ts = uncurry process $ consume m ts - consume m ((One And):rest) = term (m `MAnd`) rest - consume m ((One Or):rest) = term (m `MOr`) rest - consume m ((One Not):rest) = term (\p -> m `MAnd` (MNot p)) rest - consume m ((One (Operation o)):rest) = (m `MAnd` MOp o, rest) + consume m (One And:rest) = term (m `MAnd`) rest + consume m (One Or:rest) = term (m `MOr`) rest + consume m (One Not:rest) = term (\p -> m `MAnd` (MNot p)) rest + consume m (One (Operation o):rest) = (m `MAnd` MOp o, rest) consume m (Group g:rest) = (process m g, rest) consume m (_:rest) = consume m rest consume m [] = (m, []) |