X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplStg%2FSRT.lhs;h=abad3ce48dfd67cd660b06d5f719747cb4b3ba3d;hb=f705fdb20935feee6a9ee86f5c9ffac2ab262a34;hp=1a17c0622884a3231b8734fdfd6809d37b33a563;hpb=366e74151e99b34b764de757511bfecd399f2510;p=ghc-hetmet.git

diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs
index 1a17c06..abad3ce 100644
--- a/compiler/simplStg/SRT.lhs
+++ b/compiler/simplStg/SRT.lhs
@@ -16,8 +16,6 @@ bindings have no CAF references, and record the fact in their IdInfo.
 
 module SRT( computeSRTs ) where
 
--- XXX This define is a bit of a hack, and should be done more nicely
-#define FAST_STRING_NOT_NEEDED 1
 #include "HsVersions.h"
 
 import StgSyn
@@ -29,8 +27,6 @@ import Bitmap
 
 import Outputable
 
-import List
-
 import Util
 \end{code}