From 0b021e8630ab78ccad076cf8357e370f4a0fcab5 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Tue, 13 May 2025 16:49:22 +0200 Subject: Let stylish-haskell sort things --- src/Data/Array/Mixed/Internal/Arith.hs | 4 ++-- src/Data/Array/Mixed/Shape.hs | 6 +++--- src/Data/Array/Mixed/Types.hs | 2 +- src/Data/Array/Mixed/XArray.hs | 2 +- 4 files changed, 7 insertions(+), 7 deletions(-) (limited to 'src/Data/Array/Mixed') diff --git a/src/Data/Array/Mixed/Internal/Arith.hs b/src/Data/Array/Mixed/Internal/Arith.hs index b1c7031..ebda388 100644 --- a/src/Data/Array/Mixed/Internal/Arith.hs +++ b/src/Data/Array/Mixed/Internal/Arith.hs @@ -12,10 +12,10 @@ import Data.Array.Strided qualified as AS import Data.Array.Strided.Arith -- for liftVEltwise1 +import Data.Array.Strided.Arith.Internal (stridesDense) +import Data.Vector.Storable qualified as VS import Foreign.Storable import GHC.TypeLits -import Data.Vector.Storable qualified as VS -import Data.Array.Strided.Arith.Internal (stridesDense) fromO :: RS.Array n a -> AS.Array n a diff --git a/src/Data/Array/Mixed/Shape.hs b/src/Data/Array/Mixed/Shape.hs index 26f938d..0b6d390 100644 --- a/src/Data/Array/Mixed/Shape.hs +++ b/src/Data/Array/Mixed/Shape.hs @@ -22,14 +22,14 @@ {-# OPTIONS_GHC -fplugin GHC.TypeLits.KnownNat.Solver #-} module Data.Array.Mixed.Shape where -import Control.DeepSeq (NFData(..)) +import Control.DeepSeq (NFData (..)) import Data.Bifunctor (first) import Data.Coerce import Data.Foldable qualified as Foldable import Data.Functor.Const import Data.Functor.Product -import Data.Kind (Type, Constraint) -import Data.Monoid (Sum(..)) +import Data.Kind (Constraint, Type) +import Data.Monoid (Sum (..)) import Data.Proxy import Data.Type.Equality import GHC.Exts (withDict) diff --git a/src/Data/Array/Mixed/Types.hs b/src/Data/Array/Mixed/Types.hs index 736ced6..3f5b1e7 100644 --- a/src/Data/Array/Mixed/Types.hs +++ b/src/Data/Array/Mixed/Types.hs @@ -36,8 +36,8 @@ module Data.Array.Mixed.Types ( unsafeCoerceRefl, ) where -import Data.Type.Equality import Data.Proxy +import Data.Type.Equality import GHC.TypeLits import GHC.TypeNats qualified as TN import Unsafe.Coerce qualified diff --git a/src/Data/Array/Mixed/XArray.hs b/src/Data/Array/Mixed/XArray.hs index 93484dc..3680930 100644 --- a/src/Data/Array/Mixed/XArray.hs +++ b/src/Data/Array/Mixed/XArray.hs @@ -15,9 +15,9 @@ module Data.Array.Mixed.XArray where import Control.DeepSeq (NFData) +import Data.Array.Internal qualified as OI import Data.Array.Internal.RankedG qualified as ORG import Data.Array.Internal.RankedS qualified as ORS -import Data.Array.Internal qualified as OI import Data.Array.Ranked qualified as ORB import Data.Array.RankedS qualified as S import Data.Coerce -- cgit v1.2.3-70-g09d2