quietFilter :: Monad m => Options -> Pipe Message Message m r
quietFilter options
    | optQuiet options  = requirePriority Error
    | otherwise         = cat
quietFilter :: Monad m => Options -> Pipe Message Message m r
quietFilter options
    | optQuiet options  = requirePriority Error
    | otherwise         = cat
quietFilter options
    | optQuiet options  = requirePriority Error
    | otherwise         = cat