Generalize substitute.

2024-12-22 14:21:31 +03:00 · 2018-10-22 12:27:06 -04:00 · 2018-10-22 12:27:06 -04:00 · 3c267f2757
commit 3c267f2757
parent 0960f0cd9e
1 changed files with 2 additions and 1 deletions
--- a/src/Data/Abstract/Value/Type.hs
+++ b/src/Data/Abstract/Value/Type.hs
@ -192,10 +192,11 @@ substitute :: ( Member (Reader ModuleInfo) sig
              , Member (Resumable (BaseError TypeError)) sig
              , Member (State TypeMap) sig
              , Carrier sig m
+              , Monad m
              )
           => TName
           -> Type
-           -> Evaluator term address Type m Type
+           -> m Type
 substitute id ty = do
  infiniteType <- occur id ty
  ty <- if infiniteType