🔥 Data.Abstract.Address.

semantic.cabal

@@ -48,7 +48,6 @@ library
                      , Control.Abstract.TermEvaluator
                      , Control.Abstract.Value
                      -- Datatypes for abstract interpretation
-                     , Data.Abstract.Address
                      , Data.Abstract.Address.Located
                      , Data.Abstract.Address.Monovariant
                      , Data.Abstract.Address.Precise

src/Analysis/Abstract/Graph.hs

@@ -18,7 +18,7 @@ module Analysis.Abstract.Graph
 
 import           Algebra.Graph.Export.Dot hiding (vertexName)
 import           Control.Abstract hiding (Function(..))
-import           Data.Abstract.Address
+import           Data.Abstract.Address.Located
 import           Data.Abstract.BaseError
 import           Data.Abstract.Ref
 import           Data.Abstract.Declarations

src/Control/Abstract/Addressable.hs

@@ -7,7 +7,9 @@ module Control.Abstract.Addressable
 import Control.Abstract.Context
 import Control.Abstract.Evaluator
 import Control.Abstract.Hole
-import Data.Abstract.Address
+import Data.Abstract.Address.Located
+import Data.Abstract.Address.Monovariant
+import Data.Abstract.Address.Precise
 import Data.Abstract.Name
 import qualified Data.Set as Set
 import Prologue

src/Data/Abstract/Address.hs

@@ -1,9 +0,0 @@
-module Data.Abstract.Address
-  ( Precise (..)
-  , Located (..)
-  , Monovariant (..)
-  ) where
-
-import Data.Abstract.Address.Located
-import Data.Abstract.Address.Monovariant
-import Data.Abstract.Address.Precise

src/Data/Abstract/Environment.hs

@@ -31,7 +31,7 @@ import           Prelude hiding (head, lookup)
 import           Prologue
 
 -- $setup
--- >>> import Data.Abstract.Address
+-- >>> import Data.Abstract.Address.Precise
 -- >>> let bright = push (insertEnv (name "foo") (Precise 0) lowerBound)
 -- >>> let shadowed = insertEnv (name "foo") (Precise 1) bright
 

src/Semantic/Graph.hs

@@ -29,7 +29,9 @@ import           Analysis.Abstract.Caching
 import           Analysis.Abstract.Collecting
 import           Analysis.Abstract.Graph as Graph
 import           Control.Abstract
-import           Data.Abstract.Address
+import           Data.Abstract.Address.Located
+import           Data.Abstract.Address.Monovariant
+import           Data.Abstract.Address.Precise
 import           Data.Abstract.BaseError (BaseError(..))
 import           Data.Abstract.Evaluatable
 import           Data.Abstract.Module

src/Semantic/Util.hs

@@ -9,7 +9,8 @@ import           Analysis.Abstract.Collecting
 import           Control.Abstract
 import           Control.Exception (displayException)
 import           Control.Monad.Effect.Trace (runPrintingTrace)
-import           Data.Abstract.Address
+import           Data.Abstract.Address.Monovariant
+import           Data.Abstract.Address.Precise
 import           Data.Abstract.BaseError (BaseError(..))
 import           Data.Abstract.Evaluatable
 import           Data.Abstract.Module

test/Control/Abstract/Evaluator/Spec.hs

@@ -5,6 +5,7 @@ module Control.Abstract.Evaluator.Spec
 ) where
 
 import Control.Abstract
+import Data.Abstract.Address.Precise
 import Data.Abstract.BaseError
 import Data.Abstract.Module
 import qualified Data.Abstract.Number as Number

test/SpecHelpers.hs

@@ -22,7 +22,7 @@ import Control.Abstract
 import Control.Arrow ((&&&))
 import Control.Monad.Effect.Trace as X (runIgnoringTrace, runReturningTrace)
 import Control.Monad ((>=>))
-import Data.Abstract.Address as X
+import Data.Abstract.Address.Precise as X
 import Data.Abstract.Environment as Env
 import Data.Abstract.Evaluatable
 import Data.Abstract.FreeVariables as X