aoooohhh

2024-03-11 09:26:53 -06:00
parent 52657a6a14
commit 07973ca500
4 changed files with 145 additions and 193 deletions
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -85,3 +85,6 @@ instance (Monad m, MonadErrorful e m) => MonadErrorful e (ReaderT r m) where
    addWound = lift . addWound
    addFatal = lift . addFatal

+instance (Monad m, MonadState s m) => MonadState s (ErrorfulT e m) where
+    state = lift . state
+