Haskell-MMorph-Library
Haskell-MMorph-Library copied to clipboard
Add `readOnly`
readOnly :: Monad m => ReaderT s m r -> StateT s m r
readOnly readerT = StateT $ \s -> do
r <- runReaderT readerT s
return (r, s)