From 057c1bf3f496387479ae0cbaca5ff6bf27123a5d Mon Sep 17 00:00:00 2001 From: Alexey Khudyakov Date: Wed, 10 Sep 2025 21:37:41 +0300 Subject: [PATCH] define NOT_VECTOR_MODULE is not used anywhere --- vector/src/Data/Vector/Fusion/Bundle.hs | 2 -- vector/src/Data/Vector/Generic/Mutable/Base.hs | 2 -- vector/src/Data/Vector/Generic/New.hs | 2 -- vector/src/Data/Vector/Primitive/Mutable.hs | 2 -- vector/src/Data/Vector/Storable.hs | 2 -- vector/src/Data/Vector/Storable/Mutable.hs | 2 -- vector/src/Data/Vector/Unboxed.hs | 2 -- vector/src/Data/Vector/Unboxed/Base.hs | 2 -- vector/src/Data/Vector/Unboxed/Mutable.hs | 2 -- 9 files changed, 18 deletions(-) diff --git a/vector/src/Data/Vector/Fusion/Bundle.hs b/vector/src/Data/Vector/Fusion/Bundle.hs index 25c46289..71cd2ae4 100644 --- a/vector/src/Data/Vector/Fusion/Bundle.hs +++ b/vector/src/Data/Vector/Fusion/Bundle.hs @@ -97,8 +97,6 @@ import Prelude import Data.Functor.Classes (Eq1 (..), Ord1 (..)) import GHC.Base ( build ) --- Data.Vector.Internal.Check is unused -#define NOT_VECTOR_MODULE #include "vector.h" -- | The type of pure streams diff --git a/vector/src/Data/Vector/Generic/Mutable/Base.hs b/vector/src/Data/Vector/Generic/Mutable/Base.hs index 0b15f40e..d9fe5a46 100644 --- a/vector/src/Data/Vector/Generic/Mutable/Base.hs +++ b/vector/src/Data/Vector/Generic/Mutable/Base.hs @@ -22,8 +22,6 @@ module Data.Vector.Generic.Mutable.Base ( import Control.Monad.ST --- Data.Vector.Internal.Check is unused -#define NOT_VECTOR_MODULE #include "vector.h" -- | Class of mutable vectors parameterised with a primitive state token. diff --git a/vector/src/Data/Vector/Generic/New.hs b/vector/src/Data/Vector/Generic/New.hs index c73a3823..eda8c7e2 100644 --- a/vector/src/Data/Vector/Generic/New.hs +++ b/vector/src/Data/Vector/Generic/New.hs @@ -44,8 +44,6 @@ import Prelude , return, seq , (.), (=<<) ) --- Data.Vector.Internal.Check is unused -#define NOT_VECTOR_MODULE #include "vector.h" -- | This data type is a wrapper around a monadic action which produces diff --git a/vector/src/Data/Vector/Primitive/Mutable.hs b/vector/src/Data/Vector/Primitive/Mutable.hs index 6501ed2f..15710ff9 100644 --- a/vector/src/Data/Vector/Primitive/Mutable.hs +++ b/vector/src/Data/Vector/Primitive/Mutable.hs @@ -90,8 +90,6 @@ import Prelude import Data.Coerce import Unsafe.Coerce --- Data.Vector.Internal.Check is unnecessary -#define NOT_VECTOR_MODULE #include "vector.h" type role MVector nominal nominal diff --git a/vector/src/Data/Vector/Storable.hs b/vector/src/Data/Vector/Storable.hs index 597c8ad7..8a222aa1 100644 --- a/vector/src/Data/Vector/Storable.hs +++ b/vector/src/Data/Vector/Storable.hs @@ -199,8 +199,6 @@ import Data.Coerce import qualified GHC.Exts as Exts import Unsafe.Coerce --- Data.Vector.Internal.Check is unused -#define NOT_VECTOR_MODULE #include "vector.h" type role Vector nominal diff --git a/vector/src/Data/Vector/Storable/Mutable.hs b/vector/src/Data/Vector/Storable/Mutable.hs index d1ab416a..ccde3c2e 100644 --- a/vector/src/Data/Vector/Storable/Mutable.hs +++ b/vector/src/Data/Vector/Storable/Mutable.hs @@ -108,8 +108,6 @@ import Prelude import Data.Coerce import Unsafe.Coerce --- Data.Vector.Internal.Check is not needed -#define NOT_VECTOR_MODULE #include "vector.h" type role MVector nominal nominal diff --git a/vector/src/Data/Vector/Unboxed.hs b/vector/src/Data/Vector/Unboxed.hs index a1f356bd..20234253 100644 --- a/vector/src/Data/Vector/Unboxed.hs +++ b/vector/src/Data/Vector/Unboxed.hs @@ -244,8 +244,6 @@ import Data.Semigroup ( Semigroup(..) ) import qualified GHC.Exts as Exts (IsList(..)) - -#define NOT_VECTOR_MODULE #include "vector.h" -- See http://trac.haskell.org/vector/ticket/12 diff --git a/vector/src/Data/Vector/Unboxed/Base.hs b/vector/src/Data/Vector/Unboxed/Base.hs index dbc57b1c..50062af7 100644 --- a/vector/src/Data/Vector/Unboxed/Base.hs +++ b/vector/src/Data/Vector/Unboxed/Base.hs @@ -64,8 +64,6 @@ import GHC.Generics import Data.Coerce import Data.Kind (Type) --- Data.Vector.Internal.Check is unused -#define NOT_VECTOR_MODULE #include "vector.h" data family MVector s a diff --git a/vector/src/Data/Vector/Unboxed/Mutable.hs b/vector/src/Data/Vector/Unboxed/Mutable.hs index 53642fa4..0b0c9ec9 100644 --- a/vector/src/Data/Vector/Unboxed/Mutable.hs +++ b/vector/src/Data/Vector/Unboxed/Mutable.hs @@ -74,8 +74,6 @@ import Control.Monad.Primitive import Prelude ( Ord, Bool, Int, Maybe, Ordering(..) ) --- don't import an unused Data.Vector.Internal.Check -#define NOT_VECTOR_MODULE #include "vector.h" -- Length information