- | Variant of 'increment' that doesn't fail when 'maxBound' is reached. It
-- is defined as:
--
-- @
-- 'increment'' v = 'fromMaybe' v ('increment' v)
-- @
increment' :: Verbosity -> Verbosity
increment' v = fromMaybe v (increment v)

increment' :: Verbosity -> Verbosity
increment' v = fromMaybe v (increment v)
increment' v = fromMaybe v (increment v)