From: Ian Lynagh <igloo@earth.li>
Date: Sat, 22 Mar 2008 14:06:41 +0000 (+0000)
Subject: -DDEBUG build fix
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8d84d843da4886861b2b27236b413ad135666653

-DDEBUG build fix
---

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