From eda6c961a61b6d1b01d5c34c7b8c13868eaefb6e Mon Sep 17 00:00:00 2001
From: "Trevor L. McDonell" <tmcdonell@cse.unsw.edu.au>
Date: Fri, 11 May 2012 23:57:44 +1000
Subject: [PATCH] add no-op instance of touchMArr

---
 Data/Array/Accelerate/IO/Repa.hs | 5 +++++
 accelerate-io.cabal              | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/Data/Array/Accelerate/IO/Repa.hs b/Data/Array/Accelerate/IO/Repa.hs
index 3048605..fd8ad94 100644
--- 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
index 83e7e00..52dc4e6 100644
--- 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