whole-program inference

2024-03-28 06:53:46 -06:00
parent 3ed6fc233f
commit 7e8be474c6
4 changed files with 162 additions and 126 deletions
--- a/src/Control/Monad/Errorful.hs
+++ b/src/Control/Monad/Errorful.hs
@@ -102,6 +102,10 @@ instance (Monoid w, Monad m, MonadWriter w m) => MonadWriter w (ErrorfulT e m) w
        ((,w) <$> ma, es)
    pass (ErrorfulT m) = undefined

+instance (Monad m, MonadReader r m) => MonadReader r (ErrorfulT e m) where
+    ask      = lift ask
+    local rr = hoistErrorfulT (local rr)
+
 instance (Monoid w, Monad m, MonadAccum w m)
      => MonadAccum w (ErrorfulT e m) where
    accum = lift . accum