REDO: Annotation PData and PArray with NoSpecConstr
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 4 Nov 2009 11:52:50 +0000 (11:52 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 4 Nov 2009 11:52:50 +0000 (11:52 +0000)
dph-common/Data/Array/Parallel/Lifted/PArray.hs
dph-common/dph-common.cabal

index c59a5e4..e9ec28e 100644 (file)
@@ -25,10 +25,13 @@ import qualified Data.Array.Parallel.Unlifted as U
 import Data.Array.Parallel.Lifted.Selector
 import Data.Array.Parallel.Lifted.Unboxed ( elementsSegd# )
 import GHC.Exts (Int#, Int(..), (+#), (*#))
+import SpecConstr
 
 -- |Lifted parallel arrays
 --
+{-# ANN type PArray NoSpecConstr #-}
 data PArray a = PArray Int# (PData a)
+{-# ANN type PData NoSpecConstr #-}
 data family PData a
 
 -- |Representation types
index 343afba..02f2a68 100644 (file)
@@ -54,7 +54,7 @@ Library
   else
     GHC-Options: -O2 -fdicts-cheap -fno-method-sharing
 
-  Build-Depends:  base >= 3 && < 5, array, random
+  Build-Depends:  base >= 3 && < 5, array, random, ghc
   if impl(ghc >= 6.9)
     Build-Depends: ghc-prim
   Build-Depends: dph-base