darcs patch: Improve Control.Monad.filterM: