on f86e01e help sign in
6 lines 130 B history raw
1instance MonadReader a ((->) a) where ask = id
3instance MonadState s (State s)
4 where
5 get = State.get
6 put = State.put