abstract-par-accelerate 0.3.1 → 0.3.2
raw patch · 2 files changed
+20/−5 lines, 2 files
Files
Control/Monad/Par/Accelerate.hs view
@@ -7,9 +7,11 @@ -- * The Class ParAccelerate(..), +#ifdef ACC_IO -- * Example applications of `unsafeHybrid` unsafeHybridVector, unsafeHybridIArray+#endif ) where import Control.Monad.Par.Class@@ -22,8 +24,10 @@ import Data.Array.Accelerate (Acc, Arrays, Shape) import Data.Array.Accelerate.Array.Sugar (EltRepr,Elt,Array,DIM1,toIArray) +#ifdef ACC_IO -- From 'accelerate-io', or 'accelerate" <= 0.10 import qualified Data.Array.Accelerate.IO as IO +#endif -------------------------------------------------------------------------------- @@ -124,6 +128,7 @@ -------------------------------------------------------------------------------- +#ifdef ACC_IO -- | An example application of `unsafeHybrid` for vectors. unsafeHybridVector :: (Vector.Storable a, Elt a, IO.BlockPtrs (EltRepr a) ~ ((), Ptr a), @@ -144,3 +149,4 @@ -> p (iv (a ix e)) unsafeHybridIArray = unsafeHybrid toIArray --IO.toArray +#endif
abstract-par-accelerate.cabal view
@@ -1,5 +1,5 @@ Name: abstract-par-accelerate-Version: 0.3.1+Version: 0.3.2 Synopsis: Provides the class ParAccelerate, nothing more. Description: Following the convention the @abstract-par@ package,@@ -15,6 +15,7 @@ -- -- 0.3: Initial release. -- 0.3.1: Tweak Accelerate dependencies.+-- 0.3.2: Add 'io' flag Homepage: https://github.com/simonmar/monad-par License: BSD3@@ -38,12 +39,20 @@ , vector >= 0.9 , array - if flag(newAccelerate) {+ if flag(newAccelerate) Build-depends: accelerate >= 0.12- , accelerate-io >= 0.12- } else {+ else Build-depends: accelerate >= 0.10 && < 0.12- }++ if flag(io) && flag(newAccelerate)+ Build-depends: accelerate-io >= 0.12++ if flag(io)+ cpp-options: -DACC_IO++-- Mirroring accelerate-0.10's 'io' flag:+flag io+ default: False flag newAccelerate default: False