fourmolu-0.2.0.0: data/examples/declaration/instance/multi-parameter-four-out.hs

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

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