Define a single instance of MonadThrow.

src/Analysis/Abstract/Evaluating.hs

@@ -5,7 +5,6 @@ module Analysis.Abstract.Evaluating
 
 import Control.Abstract.Evaluator
 import Control.Monad.Effect
-import Control.Monad.Effect.Resumable
 import Data.Abstract.Configuration
 import qualified Data.Abstract.Environment as Env
 import Data.Abstract.Evaluatable
@@ -40,9 +39,6 @@ type EvaluatingEffects term value
      ]
 
 
-instance Members '[Resumable Prelude.String value] effects => MonadThrow Prelude.String value (Evaluating term value effects) where
-   throwException = raise . throwError
-
 instance Members '[Fail, State (IntMap.IntMap term)] effects => MonadControl term (Evaluating term value effects) where
   label term = do
     m <- raise get

src/Control/Abstract/Evaluator.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE ConstrainedClassMethods, FunctionalDependencies #-}
+{-# LANGUAGE ConstrainedClassMethods, DataKinds, FunctionalDependencies, UndecidableInstances #-}
 module Control.Abstract.Evaluator
 ( MonadEvaluator(..)
 , MonadEnvironment(..)
@@ -17,6 +17,8 @@ module Control.Abstract.Evaluator
 , EvaluateModule(..)
 ) where
 
+import Control.Effect
+import Control.Monad.Effect.Resumable
 import Data.Abstract.Address
 import Data.Abstract.Configuration
 import qualified Data.Abstract.Environment as Env
@@ -27,7 +29,7 @@ import Data.Abstract.Module
 import Data.Abstract.ModuleTable
 import Data.Abstract.Value
 import Data.Semigroup.Reducer
-import Prologue
+import Prologue hiding (throwError)
 
 -- | A 'Monad' providing the basic essentials for evaluation.
 --
@@ -161,3 +163,6 @@ class Monad m => MonadThrow exc v m where
 
 newtype EvaluateModule term = EvaluateModule (Module term)
   deriving (Eq, Foldable, Functor, Ord, Show, Traversable)
+
+instance (Effectful m, Members '[Resumable exc value] effects, Monad (m effects)) => MonadThrow exc value (m effects) where
+  throwException = raise . throwError