X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FsimplStg%2FSRT.lhs;h=dfd98329a116f83a75ed40cbfbf61f4ed642d095;hp=5618cb19f7dfeb2bbb1283eb078c87f376a43b61;hb=8d84d843da4886861b2b27236b413ad135666653;hpb=0dfab83f21817343d334314ddd25026f3f0224ab

diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs
index 5618cb1..dfd9832 100644
--- a/compiler/simplStg/SRT.lhs
+++ b/compiler/simplStg/SRT.lhs
@@ -144,7 +144,7 @@ srtExpr table (StgLetNoEscape live1 live2 bind body)
     StgLetNoEscape live1 live2 bind' body'
 
 #ifdef DEBUG
-srtExpr table expr = pprPanic "srtExpr" (ppr expr)
+srtExpr _table expr = pprPanic "srtExpr" (ppr expr)
 #endif
 
 srtAlt :: IdEnv Int -> StgAlt -> StgAlt