[commit: dph] : Remove scar tissue (521a128)

[Ben Lippmeier]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/dph

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/521a1289717c18260576ebf25a0f15fe002d29b2

>---------------------------------------------------------------

commit 521a1289717c18260576ebf25a0f15fe002d29b2
Author: Ben Lippmeier <benl at ouroborus.net>
Date:   Fri May 6 15:39:27 2011 +1000

    Remove scar tissue

>---------------------------------------------------------------

 dph-common/Data/Array/Parallel/Lifted/Unboxed.hs |   12 ------------
 1 files changed, 0 insertions(+), 12 deletions(-)

diff --git a/dph-common/Data/Array/Parallel/Lifted/Unboxed.hs b/dph-common/Data/Array/Parallel/Lifted/Unboxed.hs
index b90eeca..54a3480 100644
--- a/dph-common/Data/Array/Parallel/Lifted/Unboxed.hs
+++ b/dph-common/Data/Array/Parallel/Lifted/Unboxed.hs
@@ -60,22 +60,10 @@ import GHC.Word ( Word8(..) )
 type Segd = U.Segd
 type Sel2 = U.Sel2
 
-{-
-lengthSegd# :: Segd -> Int#
-lengthSegd# segd = case U.lengthSegd segd of { I# n# -> n# }
-{-# INLINE_PA lengthSegd# #-}
--}
-
 elementsSegd# :: Segd -> Int#
 elementsSegd# segd = case U.elementsSegd segd of { I# n# -> n# }
 {-# INLINE_PA elementsSegd# #-}
 
-{-
-lengthsToSegdPA# :: PArray_Int# -> Segd
-lengthsToSegdPA# = U.lengthsToSegd
-{-# INLINE_PA lengthsToSegdPA# #-}
--}
-
 mkSegd# :: U.Array Int -> U.Array Int -> Int# -> Segd
 mkSegd# ns is n# = U.mkSegd ns is (I# n#)
 {-# INLINE_PA mkSegd# #-}