DEBUG removal
authorIan Lynagh <igloo@earth.li>
Sat, 29 Mar 2008 16:54:12 +0000 (16:54 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 29 Mar 2008 16:54:12 +0000 (16:54 +0000)
compiler/simplStg/SRT.lhs

index dfd9832..1a17c06 100644 (file)
@@ -27,9 +27,7 @@ import VarEnv
 import Maybes          ( orElse, expectJust )
 import Bitmap
 
-#ifdef DEBUG
 import Outputable
-#endif
 
 import List
 
@@ -143,9 +141,7 @@ srtExpr table (StgLetNoEscape live1 live2 bind body)
     srtExpr table body            =: \ body' ->
     StgLetNoEscape live1 live2 bind' body'
 
-#ifdef DEBUG
 srtExpr _table expr = pprPanic "srtExpr" (ppr expr)
-#endif
 
 srtAlt :: IdEnv Int -> StgAlt -> StgAlt
 srtAlt table (con,args,used,rhs)