-DDEBUG build fix

diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs
index 5618cb1..dfd9832 100644 (file)
--- 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
     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
 #endif
 
 srtAlt :: IdEnv Int -> StgAlt -> StgAlt