X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FStringBuffer.lhs;h=3b2a3df2c875dc66669fd51b4046bd018fc68e1d;hb=174dccda5a8213f9a777ddf5230effef6b5f464d;hp=d51c800fcaa31775dbc9e6cb1d6eeb4eed587f04;hpb=b3ee146e56463e8b492bf7ba1ad95ba7d966ea8d;p=ghc-hetmet.git

diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs
index d51c800..3b2a3df 100644
--- a/compiler/utils/StringBuffer.lhs
+++ b/compiler/utils/StringBuffer.lhs
@@ -6,6 +6,10 @@
 Buffers for scanning string input stored in external arrays.
 
 \begin{code}
+{-# OPTIONS_GHC -O -funbox-strict-fields #-}
+-- We always optimise this, otherwise performance of a non-optimised
+-- compiler is severely affected
+
 module StringBuffer
        (
         StringBuffer(..),