summaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
authorsimonpj@microsoft.com <unknown>2010-11-12 17:44:39 +0000
committersimonpj@microsoft.com <unknown>2010-11-12 17:44:39 +0000
commit5289f5d85610f71625a439747a09384876655eb5 (patch)
tree5f155dd7321db2358b42aaa595142e5a92039770 /compiler
parent4db9ea9ec8b4ae0db74259bb87319643de1fd469 (diff)
downloadhaskell-5289f5d85610f71625a439747a09384876655eb5.tar.gz
More modules that need LANGUAGE BangPatterns
Diffstat (limited to 'compiler')
-rw-r--r--compiler/basicTypes/Unique.lhs1
-rw-r--r--compiler/cmm/CmmLex.x1
-rw-r--r--compiler/ghci/ByteCodeLink.lhs1
-rw-r--r--compiler/parser/Lexer.x1
-rw-r--r--compiler/profiling/CostCentre.lhs2
-rw-r--r--compiler/utils/Pretty.lhs1
-rw-r--r--compiler/utils/StringBuffer.lhs1
7 files changed, 7 insertions, 1 deletions
diff --git a/compiler/basicTypes/Unique.lhs b/compiler/basicTypes/Unique.lhs
index 6e0ee20ead..41806040d2 100644
--- a/compiler/basicTypes/Unique.lhs
+++ b/compiler/basicTypes/Unique.lhs
@@ -16,6 +16,7 @@ Some of the other hair in this code is to be able to use a
Haskell).
\begin{code}
+{-# LANGUAGE BangPatterns #-}
module Unique (
-- * Main data types
Unique, Uniquable(..),
diff --git a/compiler/cmm/CmmLex.x b/compiler/cmm/CmmLex.x
index a5defb618a..50e9aea9e8 100644
--- a/compiler/cmm/CmmLex.x
+++ b/compiler/cmm/CmmLex.x
@@ -11,6 +11,7 @@
-----------------------------------------------------------------------------
{
+{-# LANGUAGE BangPatterns #-}
{-# OPTIONS -Wwarn -w #-}
-- The above -Wwarn supression flag is a temporary kludge.
-- While working on this module you are encouraged to remove it and fix
diff --git a/compiler/ghci/ByteCodeLink.lhs b/compiler/ghci/ByteCodeLink.lhs
index 7d94d2c72f..b1f7e39aed 100644
--- a/compiler/ghci/ByteCodeLink.lhs
+++ b/compiler/ghci/ByteCodeLink.lhs
@@ -4,6 +4,7 @@
ByteCodeLink: Bytecode assembler and linker
\begin{code}
+{-# LANGUAGE BangPatterns #-}
{-# OPTIONS -optc-DNON_POSIX_SOURCE #-}
{-# OPTIONS -w #-}
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index c8a5378398..07179b8584 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -32,6 +32,7 @@
{
-- XXX The above flags turn off warnings in the generated code:
+{-# LANGUAGE BangPatterns #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
diff --git a/compiler/profiling/CostCentre.lhs b/compiler/profiling/CostCentre.lhs
index 2648d1eff2..9e08831c97 100644
--- a/compiler/profiling/CostCentre.lhs
+++ b/compiler/profiling/CostCentre.lhs
@@ -10,7 +10,7 @@
-- any warnings in the module. See
-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
-- for details
-{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE BangPatterns, DeriveDataTypeable #-}
module CostCentre (
CostCentre(..), CcName, IsDupdCC(..), IsCafCC(..),
diff --git a/compiler/utils/Pretty.lhs b/compiler/utils/Pretty.lhs
index 3c003987af..317022d669 100644
--- a/compiler/utils/Pretty.lhs
+++ b/compiler/utils/Pretty.lhs
@@ -152,6 +152,7 @@ Relative to John's original paper, there are the following new features:
\begin{code}
+{-# LANGUAGE BangPatterns #-}
{-# OPTIONS -fno-warn-unused-imports #-}
-- XXX GHC 6.9 seems to be confused by unpackCString# being used only in
-- a RULE
diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs
index 869cb8ac84..5d1bfa6086 100644
--- a/compiler/utils/StringBuffer.lhs
+++ b/compiler/utils/StringBuffer.lhs
@@ -6,6 +6,7 @@
Buffers for scanning string input stored in external arrays.
\begin{code}
+{-# LANGUAGE BangPatterns #-}
{-# OPTIONS_GHC -O -funbox-strict-fields #-}
-- We always optimise this, otherwise performance of a non-optimised
-- compiler is severely affected