fourmolu-0.0.6.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