improve comment

This commit is contained in:
Joey Hess 2015-09-15 13:12:21 -04:00
parent b08c6d4e16
commit f77a873a15

View file

@ -144,7 +144,7 @@ isEmpty MAny = True
isEmpty _ = False
{- Combines two matchers, yielding a matcher that will match anything
- both do. -}
- both do. But, if one matcher contains no limits, yield the other one. -}
combineMatchers :: Matcher a -> Matcher a -> Matcher a
combineMatchers a b
| isEmpty a = b