Add LANGUAGE BangPatterns to modules that use bang patterns

13 files changed, 13 insertions, 3 deletions

diff --git a/libraries/base/Data/Bits.hs b/libraries/base/Data/Bits.hs
index 8b5432b2af..c9230c59bf 100644
--- a/libraries/base/Data/Bits.hs
+++ b/libraries/base/Data/Bits.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 -----------------------------------------------------------------------------
 -- |
diff --git a/libraries/base/GHC/Base.lhs b/libraries/base/GHC/Base.lhs
index 8dd3124b39..5ab0b26277 100644
--- a/libraries/base/GHC/Base.lhs
+++ b/libraries/base/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/libraries/base/GHC/Conc/Sync.lhs b/libraries/base/GHC/Conc/Sync.lhs
index a75eee8dec..0808e68f21 100644
--- a/libraries/base/GHC/Conc/Sync.lhs
+++ b/libraries/base/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/libraries/base/GHC/Enum.lhs b/libraries/base/GHC/Enum.lhs
index 28f44f0d83..7cb6f07803 100644
--- a/libraries/base/GHC/Enum.lhs
+++ b/libraries/base/GHC/Enum.lhs
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/libraries/base/GHC/ForeignPtr.hs b/libraries/base/GHC/ForeignPtr.hs
index 82062416a9..a20b000156 100644
--- a/libraries/base/GHC/ForeignPtr.hs
+++ b/libraries/base/GHC/ForeignPtr.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/libraries/base/GHC/Int.hs b/libraries/base/GHC/Int.hs
index 0f451b4d32..03d488e6e0 100644
--- a/libraries/base/GHC/Int.hs
+++ b/libraries/base/GHC/Int.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/libraries/base/GHC/Show.lhs b/libraries/base/GHC/Show.lhs
index 8e8c11b5b4..2c673a82c8 100644
--- a/libraries/base/GHC/Show.lhs
+++ b/libraries/base/GHC/Show.lhs
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/libraries/base/GHC/Weak.lhs b/libraries/base/GHC/Weak.lhs
index 4897123cd5..af44c88514 100644
--- a/libraries/base/GHC/Weak.lhs
+++ b/libraries/base/GHC/Weak.lhs
@@ -1,4 +1,5 @@
 \begin{code}
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/libraries/base/GHC/Word.hs b/libraries/base/GHC/Word.hs
index 2ba026cebb..9a6355c8c7 100644
--- a/libraries/base/GHC/Word.hs
+++ b/libraries/base/GHC/Word.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
diff --git a/libraries/base/System/Event/Clock.hsc b/libraries/base/System/Event/Clock.hsc
index fec00bbf3a..73d2a52798 100644
--- a/libraries/base/System/Event/Clock.hsc
+++ b/libraries/base/System/Event/Clock.hsc
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE ForeignFunctionInterface #-}
 
 module System.Event.Clock (getCurrentTime) where
diff --git a/libraries/base/System/Event/Control.hs b/libraries/base/System/Event/Control.hs
index 159cbce26f..167eb774c7 100644
--- a/libraries/base/System/Event/Control.hs
+++ b/libraries/base/System/Event/Control.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP, ForeignFunctionInterface, NoImplicitPrelude,
-    ScopedTypeVariables #-}
+    ScopedTypeVariables, BangPatterns #-}
 
 module System.Event.Control
     (
diff --git a/libraries/base/System/Event/EPoll.hsc b/libraries/base/System/Event/EPoll.hsc
index 098946e46b..ccc8ec032c 100644
--- a/libraries/base/System/Event/EPoll.hsc
+++ b/libraries/base/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/libraries/base/System/Event/Poll.hsc b/libraries/base/System/Event/Poll.hsc
index dc577a85f1..d6929f801c 100644
--- a/libraries/base/System/Event/Poll.hsc
+++ b/libraries/base/System/Event/Poll.hsc
@@ -1,5 +1,5 @@
 {-# LANGUAGE ForeignFunctionInterface, GeneralizedNewtypeDeriving,
-    NoImplicitPrelude #-}
+    NoImplicitPrelude, BangPatterns #-}
 
 module System.Event.Poll
     (