diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-05-13 16:49:22 +0200 | 
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-05-13 16:49:22 +0200 | 
| commit | 0b021e8630ab78ccad076cf8357e370f4a0fcab5 (patch) | |
| tree | 5cbfd5ee67e674f1ce1ad993050baa1163080df7 /ops/Data/Array/Strided/Arith | |
| parent | 06f2bb862088dab5b304b655d7d9ae628bab97d8 (diff) | |
Let stylish-haskell sort things
Diffstat (limited to 'ops/Data/Array/Strided/Arith')
| -rw-r--r-- | ops/Data/Array/Strided/Arith/Internal.hs | 12 | 
1 files changed, 6 insertions, 6 deletions
| diff --git a/ops/Data/Array/Strided/Arith/Internal.hs b/ops/Data/Array/Strided/Arith/Internal.hs index 313d72f..4d7e1da 100644 --- a/ops/Data/Array/Strided/Arith/Internal.hs +++ b/ops/Data/Array/Strided/Arith/Internal.hs @@ -1,6 +1,7 @@  {-# LANGUAGE DataKinds #-}  {-# LANGUAGE ExistentialQuantification #-}  {-# LANGUAGE GADTs #-} +{-# LANGUAGE ImportQualifiedPost #-}  {-# LANGUAGE KindSignatures #-}  {-# LANGUAGE MultiWayIf #-}  {-# LANGUAGE RankNTypes #-} @@ -9,7 +10,6 @@  {-# LANGUAGE TupleSections #-}  {-# LANGUAGE TypeApplications #-}  {-# LANGUAGE TypeOperators #-} -{-# LANGUAGE ViewPatterns #-}  {-# OPTIONS_GHC -fplugin GHC.TypeLits.Normalise #-}  {-# OPTIONS_GHC -fplugin GHC.TypeLits.KnownNat.Solver #-}  module Data.Array.Strided.Arith.Internal where @@ -21,20 +21,20 @@ import Data.Int  import Data.List (sort, zip4)  import Data.Proxy  import Data.Type.Equality -import qualified Data.Vector.Storable as VS -import qualified Data.Vector.Storable.Mutable as VSM +import Data.Vector.Storable qualified as VS +import Data.Vector.Storable.Mutable qualified as VSM  import Foreign.C.Types  import Foreign.Ptr  import Foreign.Storable -import qualified GHC.TypeNats as TypeNats  import GHC.TypeLits +import GHC.TypeNats qualified as TypeNats  import Language.Haskell.TH  import System.IO (hFlush, stdout)  import System.IO.Unsafe -import Data.Array.Strided.Array -import Data.Array.Strided.Arith.Internal.Lists  import Data.Array.Strided.Arith.Internal.Foreign +import Data.Array.Strided.Arith.Internal.Lists +import Data.Array.Strided.Array  -- TODO: need to sort strides for reduction-like functions so that the C inner-loop specialisation has some chance of working even after transposition | 
