From: simonpj@microsoft.com <unknown>
Date: Fri, 12 Nov 2010 17:05:43 +0000 (+0000)
Subject: Add LANGUAGE BangPatterns to modules that use bang patterns
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=5ba076a7ebba87a34293dca92d8b3d8ea0dd9648

Add LANGUAGE BangPatterns to modules that use bang patterns
---

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
     (