X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FPArr.hs;h=a21d2fd4946736d0b2323e787dca5d7652938f8a;hb=ee7be4593b1b17d4ef45c37963b8b19d53865ab6;hp=ce93fbdab6c26caf45788e3df239242a7a718fb9;hpb=10e529099e84e0270da4228132e27f0adae638b5;p=ghc-base.git

diff --git a/GHC/PArr.hs b/GHC/PArr.hs
index ce93fbd..a21d2fd 100644
--- a/GHC/PArr.hs
+++ b/GHC/PArr.hs
@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -funbox-strict-fields #-}
+{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
 {-# LANGUAGE PArr #-}
 
 -----------------------------------------------------------------------------
@@ -506,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