Move the Open synonym to Evaluator.

src/Control/Abstract/Evaluator.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE GeneralizedNewtypeDeriving, TypeOperators #-}
 module Control.Abstract.Evaluator
   ( Evaluator(..)
+  , Open
   -- * Effects
   , Return(..)
   , earlyReturn
@@ -37,6 +38,10 @@ newtype Evaluator term address value effects a = Evaluator { runEvaluator :: Eff
 deriving instance Member NonDet effects => Alternative (Evaluator term address value effects)
 deriving instance Member (Lift IO) effects => MonadIO (Evaluator term address value effects)
 
+
+type Open a = a -> a
+
+
 -- Effects
 
 -- | An effect for explicitly returning out of a function/method body.

src/Data/Abstract/Evaluatable.hs

@@ -6,7 +6,6 @@ module Data.Abstract.Evaluatable
 , ValueEffects
 , evaluate
 , traceResolve
-, Open
 -- * Preludes
 , HasPrelude(..)
 -- * Postludes
@@ -97,8 +96,6 @@ type ValueEffects address value rest
   ': Boolean value
   ': rest
 
-type Open a = a -> a
-
 evaluate :: ( AbstractValue address value valueEffects
             , Declarations term
             , Effects effects