ormolu-0.0.1.0: data/examples/declaration/instance/multi-parameter-out.hs

instance MonadReader a ((->) a) where ask = id

instance MonadState s (State s) where

  get = State.get

  put = State.put