Generalize throwBaseError.

src/Data/Abstract/BaseError.hs

@@ -39,9 +39,10 @@ throwBaseError :: ( Member (Resumable (BaseError exc)) sig
                   , Member (Reader M.ModuleInfo) sig
                   , Member (Reader S.Span) sig
                   , Carrier sig m
+                  , Monad m
                   )
                 => exc resume
-                -> Evaluator term address value m resume
+                -> m resume
 throwBaseError err = do
   moduleInfo <- currentModule
   span <- currentSpan