remove unusable unpack pragmas

AccelerateHS · Apr 25, 2012 · d4d0af5 · d4d0af5
1 parent 1c8296a
commit d4d0af5
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/Data/Array/Accelerate/IO/Repa.hs b/Data/Array/Accelerate/IO/Repa.hs
@@ -65,8 +65,7 @@ instance Shapes sr sa => Shapes (sr R.:. Int) (sa A.:. Int) where
 --
 data A
 data instance R.Array A sh e
-  = AAccelerate {-# UNPACK #-} !sh
-                {-# UNPACK #-} !(A.ArrayData (A.EltRepr e))
+  = AAccelerate !sh !(A.ArrayData (A.EltRepr e))
 
 -- Repr ------------------------------------------------------------------------