From 5ba076a7ebba87a34293dca92d8b3d8ea0dd9648 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Fri, 12 Nov 2010 17:05:43 +0000
Subject: [PATCH] Add LANGUAGE BangPatterns to modules that use bang patterns

---
 Data/Bits.hs            |    1 +
 GHC/Base.lhs            |    1 +
 GHC/Conc/Sync.lhs       |    1 +
 GHC/Enum.lhs            |    1 +
 GHC/ForeignPtr.hs       |    1 +
 GHC/Int.hs              |    1 +
 GHC/Show.lhs            |    1 +
 GHC/Weak.lhs            |    1 +
 GHC/Word.hs             |    1 +
 System/Event/Clock.hsc  |    1 +
 System/Event/Control.hs |    2 +-
 System/Event/EPoll.hsc  |    2 +-
 System/Event/Poll.hsc   |    2 +-
 13 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/Data/Bits.hs b/Data/Bits.hs
index 8b5432b..c9230c5 100644
--- a/Data/Bits.hs
+++ b/Data/Bits.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 -----------------------------------------------------------------------------
 -- |
diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 8dd3124..5ab0b26 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -62,6 +62,7 @@ GHC.Float       Classes: Floating, RealFloat
 Other Prelude modules are much easier with fewer complex dependencies.
 
 \begin{code}
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 -- -fno-warn-orphans is needed for things like:
 -- Orphan rule: "x# -# x#" ALWAYS forall x# :: Int# -# x# x# = 0
diff --git a/GHC/Conc/Sync.lhs b/GHC/Conc/Sync.lhs
index a75eee8..0808e68 100644
--- a/GHC/Conc/Sync.lhs
+++ b/GHC/Conc/Sync.lhs
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 {-# OPTIONS_HADDOCK not-home #-}
diff --git a/GHC/Enum.lhs b/GHC/Enum.lhs
index 28f44f0..7cb6f07 100644
--- a/GHC/Enum.lhs
+++ b/GHC/Enum.lhs
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/GHC/ForeignPtr.hs b/GHC/ForeignPtr.hs
index 8206241..a20b000 100644
--- a/GHC/ForeignPtr.hs
+++ b/GHC/ForeignPtr.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/GHC/Int.hs b/GHC/Int.hs
index 0f451b4..03d488e 100644
--- a/GHC/Int.hs
+++ b/GHC/Int.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/GHC/Show.lhs b/GHC/Show.lhs
index 8e8c11b..2c673a8 100644
--- a/GHC/Show.lhs
+++ b/GHC/Show.lhs
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/GHC/Weak.lhs b/GHC/Weak.lhs
index 4897123..af44c88 100644
--- a/GHC/Weak.lhs
+++ b/GHC/Weak.lhs
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/GHC/Word.hs b/GHC/Word.hs
index 2ba026c..9a6355c 100644
--- a/GHC/Word.hs
+++ b/GHC/Word.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/System/Event/Clock.hsc b/System/Event/Clock.hsc
index fec00bb..73d2a52 100644
--- a/System/Event/Clock.hsc
+++ b/System/Event/Clock.hsc
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE ForeignFunctionInterface #-}
 
 module System.Event.Clock (getCurrentTime) where
diff --git a/System/Event/Control.hs b/System/Event/Control.hs
index 159cbce..167eb77 100644
--- a/System/Event/Control.hs
+++ b/System/Event/Control.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP, ForeignFunctionInterface, NoImplicitPrelude,
-    ScopedTypeVariables #-}
+    ScopedTypeVariables, BangPatterns #-}
 
 module System.Event.Control
     (
diff --git a/System/Event/EPoll.hsc b/System/Event/EPoll.hsc
index 098946e..ccc8ec0 100644
--- a/System/Event/EPoll.hsc
+++ b/System/Event/EPoll.hsc
@@ -1,5 +1,5 @@
 {-# LANGUAGE ForeignFunctionInterface, GeneralizedNewtypeDeriving,
-    NoImplicitPrelude #-}
+    NoImplicitPrelude, BangPatterns #-}
 
 --
 -- | A binding to the epoll I/O event notification facility
diff --git a/System/Event/Poll.hsc b/System/Event/Poll.hsc
index dc577a8..d6929f8 100644
--- a/System/Event/Poll.hsc
+++ b/System/Event/Poll.hsc
@@ -1,5 +1,5 @@
 {-# LANGUAGE ForeignFunctionInterface, GeneralizedNewtypeDeriving,
-    NoImplicitPrelude #-}
+    NoImplicitPrelude, BangPatterns #-}
 
 module System.Event.Poll
     (
-- 
1.7.10.4