fourmolu-0.0.6.0: data/examples/declaration/instance/multi-parameter.hs

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

instance MonadState s (State s)
  where
    get = State.get
    put = State.put