Ddatadata Reader i (m :: Type -> Type) a wherePeek#ConstructorsAsk :: Reader i m iLocal :: (i -> i) -> m a -> Reader i m a