add no-op instance of touchMArr

AccelerateHS · May 11, 2012 · eda6c96 · eda6c96
1 parent d4d0af5
commit eda6c96
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/Data/Array/Accelerate/IO/Repa.hs b/Data/Array/Accelerate/IO/Repa.hs
@@ -117,6 +117,11 @@ instance A.Elt e => R.Fillable A e where
   deepSeqMArr (MAArr arr) x             -- maybe?
     = arr `seq` x
 
+  {-# INLINE touchMArr #-}
+  touchMArr _                           -- maybe?
+    = return ()
+
+
 -- Conversions -----------------------------------------------------------------
 
 -- | /O(1)/. Wrap an Accelerate array.

diff --git a/accelerate-io.cabal b/accelerate-io.cabal
@@ -41,7 +41,7 @@ Library
                         array           >= 0.3,
                         base            == 4.*,
                         bytestring      >= 0.9,
-                        repa            >= 3.1,
+                        repa            >= 3.1.2,
                         vector          >= 0.9
 
   Exposed-modules:      Data.Array.Accelerate.IO