X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocLinear.hs;h=a9d8fc00cf2e38e98ed452ea427a52a412fae905;hb=8672676c20d5c9a268a8f07dc7aa706df4ca315f;hp=b99abe3841e2f80dee3402e323381fa32f1e6176;hpb=a8312580d6f089d153d8af668484d4c2eb75e8a8;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocLinear.hs b/compiler/nativeGen/RegAllocLinear.hs
index b99abe3..a9d8fc0 100644
--- a/compiler/nativeGen/RegAllocLinear.hs
+++ b/compiler/nativeGen/RegAllocLinear.hs
@@ -1112,7 +1112,7 @@ pprStats code statss
 
 #ifdef DEBUG
 my_fromJust s p Nothing  = pprPanic ("fromJust: " ++ s) p
-my_fromJust s p (Just x) = x
+my_fromJust _ _ (Just x) = x
 #else
 my_fromJust _ _ = fromJust
 #endif