X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FFastString.lhs;h=7d43dc128314bb919a9aedea05621dadf4c7e613;hp=ac79b5b75fa87f48dd316fca072119e05938e379;hb=9412e62942ebab0599c7fb0b358a9d4869647b67;hpb=e761a777f2440ca1b8d8b40848cc5aa30d889ff6

diff --git a/compiler/utils/FastString.lhs b/compiler/utils/FastString.lhs
index ac79b5b..7d43dc1 100644
--- a/compiler/utils/FastString.lhs
+++ b/compiler/utils/FastString.lhs
@@ -2,6 +2,14 @@
 % (c) The University of Glasgow, 1997-2006
 %
 \begin{code}
+{-# OPTIONS -fno-warn-unused-imports #-}
+-- XXX GHC 6.9 seems to be confused by unpackCString# being used only in
+--     a RULE
+
+{-# OPTIONS_GHC -O -funbox-strict-fields #-}
+-- We always optimise this, otherwise performance of a non-optimised
+-- compiler is severely affected
+
 {-
 FastString:     A compact, hash-consed, representation of character strings.
                 Comparison is O(1), and you can get a Unique from them.