dph-prim-seq: formatting only
authorBen Lippmeier <benl@ouroborus.net>
Mon, 12 Dec 2011 04:43:41 +0000 (15:43 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Mon, 12 Dec 2011 04:43:41 +0000 (15:43 +1100)
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/Basics.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/Sums.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/USSegd.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/USegd.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/USel.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/UVSegd.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Stream/Segments.hs

index da2da4d..c4412e0 100644 (file)
@@ -6,20 +6,19 @@
 --   * This is an internal API and shouldn't need to be used directly.
 --     Client programs should use "Data.Array.Parallel.Unlifted"
 module Data.Array.Parallel.Unlifted.Sequential
-        ( 
-        -- * Constructors
+        ( -- * Constructors
           replicateSU
         , replicateRSU
         , appendSU
         , indicesSU,    indicesSU'
 
-        -- * Folds
+          -- * Folds
         , foldSU,       foldSSU
         , foldlSU,      foldlSSU,   foldlRU
         , foldl1SU,     foldl1SSU
         , fold1SU,      fold1SSU
         
-        -- * Sums
+          -- * Sums
         , andSU
         , orSU
         , sumSU,         sumRU
@@ -27,16 +26,17 @@ module Data.Array.Parallel.Unlifted.Sequential
         , maximumSU
         , minimumSU
 
-        -- * Pack and Combine
+          -- * Pack and Combine
         , combineSU
         
+          -- * Projections
         , extractsFromNestedUSSegd
         , extractsFromVectorsUSSegd)
 where
 import Data.Array.Parallel.Unlifted.Sequential.Basics
 import Data.Array.Parallel.Unlifted.Sequential.Combinators
 import Data.Array.Parallel.Unlifted.Sequential.Sums
-import Data.Array.Parallel.Unlifted.Sequential.USegd            ()
-import Data.Array.Parallel.Unlifted.Sequential.USel             ()
-import Data.Array.Parallel.Unlifted.Sequential.UVSegd           ()
+import Data.Array.Parallel.Unlifted.Sequential.USegd     ()
+import Data.Array.Parallel.Unlifted.Sequential.USel      ()
+import Data.Array.Parallel.Unlifted.Sequential.UVSegd    ()
 import Prelude hiding (zip)
index ebcdcec..8facb6f 100644 (file)
@@ -2,9 +2,11 @@
 #include "fusion-phases.h"
 
 -- | Basic segmented operations on unlifted arrays.
-module Data.Array.Parallel.Unlifted.Sequential.Basics (
-  replicateSU, replicateRSU, appendSU, indicesSU, indicesSU'
-) where
+module Data.Array.Parallel.Unlifted.Sequential.Basics
+        ( replicateSU, replicateRSU
+        , appendSU
+        , indicesSU, indicesSU')
+where
 import Data.Array.Parallel.Stream
 import Data.Array.Parallel.Unlifted.Sequential.Vector
 import Data.Array.Parallel.Unlifted.Sequential.USegd            (USegd)
index d4fd7e6..8355f7d 100644 (file)
@@ -2,10 +2,12 @@
 #include "fusion-phases.h"
 
 -- | Sum-like operations on segmented list-like combinators.
-module Data.Array.Parallel.Unlifted.Sequential.Sums (
-  andSU, orSU, sumSU, productSU, maximumSU, minimumSU,
-  sumRU
-) where
+module Data.Array.Parallel.Unlifted.Sequential.Sums
+        ( andSU, orSU
+        , sumSU, sumRU
+        , productSU
+        , maximumSU, minimumSU)
+where
 import Data.Array.Parallel.Unlifted.Sequential.Vector as V
 import Data.Array.Parallel.Unlifted.Sequential.USegd 
 import Data.Array.Parallel.Unlifted.Sequential.Combinators
index a96546e..3f3a66e 100644 (file)
@@ -1,40 +1,38 @@
 {-# LANGUAGE CPP #-}
-{-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
+{-# OPTIONS -Wall -fno-warn-orphans #-}
 #include "fusion-phases.h"
 
 -- | Scattered Segment Descriptors
-module Data.Array.Parallel.Unlifted.Sequential.USSegd (
-        -- * Types
-        USSegd(..),
-        valid,
+module Data.Array.Parallel.Unlifted.Sequential.USSegd 
+        -- * Types
+          USSegd(..)
+        , valid
 
         -- * Constructors
-        mkUSSegd,
-        empty,
-        singleton,
-        fromUSegd,
+        , mkUSSegd
+        , empty
+        , singleton
+        , fromUSegd
         
         -- * Predicates
-        isContiguous,
+        , isContiguous
         
         -- * Projections
-        length,
-        takeUSegd, takeLengths, takeIndices, takeElements,
-        takeSources, takeStarts,
-
-        getSeg,
+        , length
+        , takeUSegd, takeLengths, takeIndices, takeElements
+        , takeSources, takeStarts
+        , getSeg
         
         -- * Operators
-        appendWith,
-        cullOnVSegids
-where
+        , appendWith
+        , cullOnVSegids)
+where
 import Data.Array.Parallel.Unlifted.Sequential.USegd            (USegd)
 import Data.Array.Parallel.Unlifted.Sequential.Vector           (Vector)
 import Data.Array.Parallel.Pretty                               hiding (empty)
 import Prelude                                                  hiding (length)
-
-import qualified Data.Array.Parallel.Unlifted.Sequential.USegd   as USegd
-import qualified Data.Array.Parallel.Unlifted.Sequential.Vector  as U
+import qualified Data.Array.Parallel.Unlifted.Sequential.USegd  as USegd
+import qualified Data.Array.Parallel.Unlifted.Sequential.Vector as U
 
 here :: String -> String 
 here s = "Data.Array.Parallel.Unlifted.Sequential.USSegd." ++ s
index 1b063ec..2c33900 100644 (file)
@@ -1,25 +1,25 @@
 {-# LANGUAGE CPP #-}
-{-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
+{-# OPTIONS -fno-warn-orphans #-}
 #include "fusion-phases.h"
 
 -- | Segment Descriptors
-module Data.Array.Parallel.Unlifted.Sequential.USegd (
-  -- * Types
-  USegd,
-
-  -- * Constructors
-  mkUSegd, valid,
-  empty, singleton,
-  fromLengths,
-
-  -- * Projections
-  length,
-  takeLengths, takeIndices, takeElements, 
-  getSeg,
-
-  -- * Operations
-  append, slice, extract
-where
+module Data.Array.Parallel.Unlifted.Sequential.USegd 
+        ( -- * Types
+          USegd
+
+          -- * Constructors
+        , mkUSegd, valid
+        , empty, singleton
+        , fromLengths
+
+          -- * Projections
+        , length
+        , takeLengths, takeIndices, takeElements
+        , getSeg
+
+          -- * Operations
+        , append, slice, extract)
+where
 import qualified Data.Array.Parallel.Unlifted.Sequential.Vector as U
 import Data.Array.Parallel.Unlifted.Sequential.Vector           (Vector)
 import Data.Array.Parallel.Pretty                               hiding (empty)
index 702f94b..846cb5a 100644 (file)
 --  The selector then consists of both the @tag@ and @indices@ arrays.
 --
 {-# LANGUAGE CPP #-}
-
 #include "fusion-phases.h"
 
-module Data.Array.Parallel.Unlifted.Sequential.USel (
-  -- * Types
-  USel2,
-
-  -- * Operations on selectors
-  mkUSel2,
-  lengthUSel2,
-  tagsUSel2, indicesUSel2, elementsUSel2_0, elementsUSel2_1,
-  tagsToIndices2
-) where
+module Data.Array.Parallel.Unlifted.Sequential.USel 
+        ( -- * Types
+          USel2
+
+          -- * Operations on selectors
+        , mkUSel2
+        , lengthUSel2
+        , tagsUSel2, indicesUSel2
+        , elementsUSel2_0, elementsUSel2_1
+        , tagsToIndices2)
+where
 import Data.Array.Parallel.Unlifted.Sequential.Vector   as V
 import qualified Data.Vector.Fusion.Stream              as S
 import Data.Vector.Fusion.Stream.Monadic                ( Stream(..) )
index 6f022b4..42e7641 100644 (file)
@@ -3,38 +3,38 @@
 #include "fusion-phases.h"
 
 -- | Segment descriptors for virtual arrays.
-module Data.Array.Parallel.Unlifted.Sequential.UVSegd (
-        -- * Types
-        UVSegd(..),
+module Data.Array.Parallel.Unlifted.Sequential.UVSegd
+        -- * Types
+          UVSegd(..)
 
-        -- * Consistency check
-        valid,
+          -- * Consistency check
+        , valid
         
-        -- * Constructors
-        mkUVSegd,
-        fromUSegd,
-        fromUSSegd,
-        empty,
-        singleton,
+          -- * Constructors
+        , mkUVSegd
+        , fromUSegd
+        , fromUSSegd
+        , empty
+        , singleton
         
-        -- * Predicates
-        isManifest,
-        isContiguous,
+          -- * Predicates
+        , isManifest
+        , isContiguous
         
-        -- * Projections
-        length,
-        takeVSegids,
-        takeUSSegd,
-        takeLengths,
-        getSeg,
-
-        -- * Operators
-        appendWith,
-        combine2,
-        updateVSegs,
-        updateVSegsReachable,
-        demoteToUSSegd,
-        unsafeDemoteToUSegd)
+          -- * Projections
+        , length
+        , takeVSegids
+        , takeUSSegd
+        , takeLengths
+        , getSeg
+
+          -- * Operators
+        , appendWith
+        , combine2
+        , updateVSegs
+        , updateVSegsReachable
+        , demoteToUSSegd
+        unsafeDemoteToUSegd)
 where
 import Data.Array.Parallel.Unlifted.Sequential.USel
 import Data.Array.Parallel.Unlifted.Sequential.USSegd           (USSegd)
index cda5adf..d2e2a06 100644 (file)
@@ -17,6 +17,7 @@ import qualified Data.Vector                                     as V
 import qualified Data.Primitive.ByteArray                        as P
 import System.IO.Unsafe
 
+
 -- Nested -----------------------------------------------------------------------------------------
 -- | Stream some physical segments from many data arrays.
 --