Mark copyMBU as INLINE
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 23 Apr 2009 12:04:50 +0000 (12:04 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 23 Apr 2009 12:04:50 +0000 (12:04 +0000)
dph-base/Data/Array/Parallel/Arr/BUArr.hs

index 2060175..7511d83 100644 (file)
@@ -524,8 +524,7 @@ extractMBU arr i n = do
 -- specified position on
 --
 copyMBU :: UAE e => MBUArr s e -> Int -> BUArr e -> ST s ()
-{-# SPECIALIZE 
-      copyMBU :: MBUArr s Int -> Int -> BUArr Int -> ST s () #-}
+{-# INLINE copyMBU #-}
 copyMBU marr i arr = ins i 0
   where
     n = lengthBU arr