diff options
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, []) |