cleaning up

noinia · Jul 23, 2024 · 7fad282 · 7fad282
1 parent cc65a22
commit 7fad282
Show file tree

Hide file tree

Showing 5 changed files with 0 additions and 66 deletions.
diff --git a/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/BruteForce.hs b/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/BruteForce.hs
@@ -13,29 +13,14 @@ module HGeometry.Plane.LowerEnvelope.Connected.BruteForce
   , computeVertexForm
   ) where
 
-import           Control.Lens
-import qualified Data.Foldable as F
-import qualified Data.List as List
-import           Data.List.NonEmpty (NonEmpty(..))
-import qualified Data.List.NonEmpty as NonEmpty
 import           Data.Map (Map)
 import qualified Data.Map as Map
-import           Data.Maybe (fromMaybe, listToMaybe)
-import           Data.Semigroup (First(..))
-import           Data.Set (Set)
-import qualified Data.Set as Set
 import           HGeometry.Combinatorial.Util
 import           HGeometry.HyperPlane.Class
 import           HGeometry.HyperPlane.NonVertical
-import           HGeometry.Intersection
-import           HGeometry.Line
-import           HGeometry.Line.General
 import           HGeometry.Plane.LowerEnvelope.Connected.MonoidalMap
-import           HGeometry.Plane.LowerEnvelope.Connected.Primitives
 import           HGeometry.Plane.LowerEnvelope.Connected.Regions
 import           HGeometry.Point
-import           HGeometry.Properties
-import           HGeometry.Vector
 
 --------------------------------------------------------------------------------
 -- * The naive O(n^4) time algorithm.

diff --git a/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/Graph.hs b/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/Graph.hs
@@ -14,27 +14,15 @@ module HGeometry.Plane.LowerEnvelope.Connected.Graph
   , toPlaneGraph
   ) where
 
-import           Control.Lens
-import qualified Data.Foldable as F
-import qualified Data.List as List
 import           Data.List.NonEmpty (NonEmpty(..))
-import qualified Data.List.NonEmpty as NonEmpty
 import           Data.Map (Map)
 import qualified Data.Map as Map
-import           Data.Maybe (fromMaybe, listToMaybe)
 import           Data.Semigroup (First(..))
-import           Data.Set (Set)
-import qualified Data.Set as Set
-import           HGeometry.Combinatorial.Util
 import           HGeometry.HyperPlane.Class
 import           HGeometry.HyperPlane.NonVertical
-import           HGeometry.Intersection
-import           HGeometry.Line
-import           HGeometry.Line.General
 import           HGeometry.Plane.LowerEnvelope.Connected.MonoidalMap
 import           HGeometry.Plane.LowerEnvelope.Connected.Regions
 import           HGeometry.Point
-import           HGeometry.Properties
 import           HGeometry.Vector
 
 --------------------------------------------------------------------------------

diff --git a/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/MonoidalMap.hs b/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/MonoidalMap.hs
@@ -4,30 +4,9 @@ module HGeometry.Plane.LowerEnvelope.Connected.MonoidalMap
   , mapWithKeyMerge
   ) where
 
-import           Control.Lens
 import qualified Data.Foldable as F
-import qualified Data.List as List
-import           Data.List.NonEmpty (NonEmpty(..))
-import qualified Data.List.NonEmpty as NonEmpty
 import           Data.Map (Map)
 import qualified Data.Map as Map
-import           Data.Maybe (fromMaybe, listToMaybe)
-import           Data.Semigroup (First(..))
--- import           Data.Sequence (Seq)
--- import qualified Data.Sequence as Seq
-import           Data.Set (Set)
-import qualified Data.Set as Set
-import           HGeometry.Combinatorial.Util
--- import           HGeometry.HalfLine
-import           HGeometry.HyperPlane.Class
-import           HGeometry.HyperPlane.NonVertical
-import           HGeometry.Intersection
-import           HGeometry.Line
-import           HGeometry.Line.General
-import           HGeometry.Point
--- import           HGeometry.Polygon.Convex
-import           HGeometry.Properties
-import           HGeometry.Vector
 
 --------------------------------------------------------------------------------
 -- * Operations on Maps

diff --git a/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/Primitives.hs b/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/Primitives.hs
@@ -15,24 +15,13 @@ module HGeometry.Plane.LowerEnvelope.Connected.Primitives
   ) where
 
 import           Control.Lens
-import qualified Data.Foldable as F
-import qualified Data.List as List
-import           Data.List.NonEmpty (NonEmpty(..))
-import qualified Data.List.NonEmpty as NonEmpty
-import           Data.Map (Map)
-import qualified Data.Map as Map
-import           Data.Maybe (fromMaybe, listToMaybe)
-import           Data.Semigroup (First(..))
-import           Data.Set (Set)
-import qualified Data.Set as Set
 import           HGeometry.Combinatorial.Util
 import           HGeometry.HyperPlane.Class
 import           HGeometry.HyperPlane.NonVertical
 import           HGeometry.Intersection
 import           HGeometry.Line
 import           HGeometry.Line.General
 import           HGeometry.Point
-import           HGeometry.Properties
 import           HGeometry.Vector
 
 --------------------------------------------------------------------------------

diff --git a/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/Regions.hs b/hgeometry/src/HGeometry/Plane/LowerEnvelope/Connected/Regions.hs
@@ -23,28 +23,21 @@ module HGeometry.Plane.LowerEnvelope.Connected.Regions
   , VertexForm
   ) where
 
-import           Control.Lens
 import qualified Data.Foldable as F
 import qualified Data.List as List
 import           Data.List.NonEmpty (NonEmpty(..))
 import qualified Data.List.NonEmpty as NonEmpty
 import           Data.Map (Map)
 import qualified Data.Map as Map
 import           Data.Maybe (fromMaybe, listToMaybe)
-import           Data.Semigroup (First(..))
--- import           Data.Sequence (Seq)
--- import qualified Data.Sequence as Seq
 import           Data.Set (Set)
 import qualified Data.Set as Set
 import           HGeometry.Combinatorial.Util
--- import           HGeometry.HalfLine
 import           HGeometry.HyperPlane.Class
 import           HGeometry.HyperPlane.NonVertical
 import           HGeometry.Intersection
 import           HGeometry.Line
-import           HGeometry.Line.General
 import           HGeometry.Point
--- import           HGeometry.Polygon.Convex
 import           HGeometry.Properties
 import           HGeometry.Vector
 import           HGeometry.Plane.LowerEnvelope.Connected.MonoidalMap