X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FPArr.hs;h=a21d2fd4946736d0b2323e787dca5d7652938f8a;hb=69b0e13fc8f0a3f4c1e18e8176d3eead86ad9d83;hp=e56d83fd75aa0ecc344a625f9fba722ac6d9deb1;hpb=bce653394ec05fe932f09e8c53158ad70097e73e;p=ghc-base.git

diff --git a/GHC/PArr.hs b/GHC/PArr.hs
index e56d83f..a21d2fd 100644
--- a/GHC/PArr.hs
+++ b/GHC/PArr.hs
@@ -507,7 +507,7 @@ dpermuteP is es dft
   | isLen /= esLen = error "GHC.PArr: arguments must be of the same length"
   | otherwise      = runST (do
                        marr <- newArray dftLen noElem
-                       trans 0 (isLen - 1) marr dft copyOne noAL
+                       _ <- trans 0 (isLen - 1) marr dft copyOne noAL
                        permute marr is es
                        mkPArr dftLen marr)
   where