Drop redundant `{-# LANGUAGE #-}` pragmas
authorHerbert Valerio Riedel <hvr@gnu.org>
Sat, 28 Sep 2013 10:42:31 +0000 (12:42 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Sat, 28 Sep 2013 10:42:31 +0000 (12:42 +0200)
This removes language pragmas from Haskell modules which are implicitly
active with `default-language: Haskell2010`. Specifically, the following
language extension pragmas are removed by this commit:

 - PatternGuards
 - ForeignFunctionInterface
 - EmptyDataDecls
 - NoBangPatterns

Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
54 files changed:
Control/Concurrent.hs
Data/Fixed.hs
Data/OldTypeable.hs
Data/Type/Equality.hs
Data/Typeable.hs
Debug/Trace.hs
Foreign/C/Error.hs
Foreign/Marshal/Alloc.hs
Foreign/Marshal/Utils.hs
Foreign/Ptr.hs
GHC/Arr.lhs
GHC/Conc/IO.hs
GHC/Conc/Signal.hs
GHC/Conc/Sync.lhs
GHC/Conc/Windows.hs
GHC/ConsoleHandler.hs
GHC/Environment.hs
GHC/Event/Array.hs
GHC/Event/Clock.hsc
GHC/Event/Control.hs
GHC/Event/EPoll.hsc
GHC/Event/KQueue.hsc
GHC/Event/Poll.hsc
GHC/Event/Thread.hs
GHC/Fingerprint.hs
GHC/Float.lhs
GHC/Float/RealFracMethods.hs
GHC/Generics.hs
GHC/IO/Buffer.hs
GHC/IO/Encoding.hs
GHC/IO/Encoding/CodePage.hs
GHC/IO/Encoding/CodePage/API.hs
GHC/IO/Encoding/Failure.hs
GHC/IO/Encoding/Iconv.hs
GHC/IO/FD.hs
GHC/IO/Handle/FD.hs
GHC/IO/Handle/Internals.hs
GHC/IO/Handle/Text.hs
GHC/Profiling.hs
GHC/Read.lhs
GHC/Stable.lhs
GHC/Stack.hsc
GHC/Stats.hsc
GHC/TopHandler.lhs
GHC/TypeLits.hs
GHC/Unicode.hs
GHC/Windows.hs
System/CPUTime.hsc
System/Environment.hs
System/Environment/ExecutablePath.hsc
System/IO.hs
System/Mem.hs
System/Posix/Internals.hs
tests/Numeric/num009.hs

index 5637db5..c487190 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
-           , ForeignFunctionInterface
            , MagicHash
            , UnboxedTuples
            , ScopedTypeVariables
index d027354..ce4266d 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE ScopedTypeVariables, PatternGuards #-}
-{-# OPTIONS -Wall -fno-warn-unused-binds #-}
+{-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE DeriveDataTypeable #-}
+{-# OPTIONS -Wall -fno-warn-unused-binds #-}
 
 -----------------------------------------------------------------------------
 -- |
index b0f4afc..d6b5b62 100644 (file)
@@ -3,7 +3,6 @@
            , NoImplicitPrelude
            , OverlappingInstances
            , ScopedTypeVariables
-           , ForeignFunctionInterface
            , FlexibleInstances
   #-}
 {-# OPTIONS_GHC -funbox-strict-fields -fno-warn-warnings-deprecations #-}
index 5293ce6..64d22e3 100644 (file)
@@ -1,7 +1,6 @@
 {-# LANGUAGE DeriveGeneric      #-}
 {-# LANGUAGE TypeOperators      #-}
 {-# LANGUAGE GADTs              #-}
-{-# LANGUAGE EmptyDataDecls     #-}
 {-# LANGUAGE FlexibleInstances  #-}
 {-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE NoImplicitPrelude  #-}
index bacb426..b951a07 100644 (file)
@@ -2,7 +2,6 @@
 {-# LANGUAGE NoImplicitPrelude
            , OverlappingInstances
            , ScopedTypeVariables
-           , ForeignFunctionInterface
            , FlexibleInstances
            , TypeOperators
            , PolyKinds
index 0cb5fe4..67e67b1 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Unsafe #-}
-{-# LANGUAGE ForeignFunctionInterface, MagicHash, UnboxedTuples #-}
+{-# LANGUAGE MagicHash, UnboxedTuples #-}
 
 -----------------------------------------------------------------------------
 -- |
index 86a2df5..dbc0b3e 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, NoImplicitPrelude, ForeignFunctionInterface #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
 -- |
index 9069e8a..a9d7040 100644 (file)
@@ -2,7 +2,6 @@
 {-# LANGUAGE NoImplicitPrelude
            , MagicHash
            , UnboxedTuples
-           , ForeignFunctionInterface
   #-}
 
 -----------------------------------------------------------------------------
index 491bd12..4654e55 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE NoImplicitPrelude, ForeignFunctionInterface #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
 -- |
index f85a7e7..0d74a82 100644 (file)
@@ -1,7 +1,6 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
-           , ForeignFunctionInterface
            , MagicHash
            , GeneralizedNewtypeDeriving
   #-}
index f310e2e..0235624 100644 (file)
@@ -1,6 +1,6 @@
 \begin{code}
 {-# LANGUAGE Unsafe #-}
-{-# LANGUAGE NoImplicitPrelude, NoBangPatterns, MagicHash, UnboxedTuples #-}
+{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 {-# OPTIONS_HADDOCK hide #-}
 
index 473fd0c..3a57c93 100644 (file)
@@ -3,7 +3,6 @@
            , NoImplicitPrelude
            , MagicHash
            , UnboxedTuples
-           , ForeignFunctionInterface
   #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 {-# OPTIONS_HADDOCK not-home #-}
index 3ceb4b3..2d70419 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE NoImplicitPrelude, ForeignFunctionInterface #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 module GHC.Conc.Signal
         ( Signal
index 41d9e1e..12611f5 100644 (file)
@@ -6,11 +6,9 @@
            , MagicHash
            , UnboxedTuples
            , UnliftedFFITypes
-           , ForeignFunctionInterface
            , DeriveDataTypeable
            , StandaloneDeriving
            , RankNTypes
-           , PatternGuards
   #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 {-# OPTIONS_HADDOCK not-home #-}
index ceb6b40..41502f0 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples, ForeignFunctionInterface,
-             DeriveDataTypeable #-}
+{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples, DeriveDataTypeable #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 {-# OPTIONS_HADDOCK not-home #-}
 
index 95810d6..4eaa434 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, ForeignFunctionInterface #-}
+{-# LANGUAGE CPP #-}
 
 -----------------------------------------------------------------------------
 -- |
index f5d9e28..257ee27 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, ForeignFunctionInterface #-}
+{-# LANGUAGE CPP #-}
 
 module GHC.Environment (getFullArgs) where
 
index 47f1bc8..30dbd77 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE BangPatterns, CPP, ForeignFunctionInterface, NoImplicitPrelude #-}
+{-# LANGUAGE BangPatterns, CPP, NoImplicitPrelude #-}
 
 module GHC.Event.Array
     (
index 37e26cd..5dbdb67 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE NoImplicitPrelude, ForeignFunctionInterface #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 module GHC.Event.Clock (getMonotonicTime) where
 
index 34b746a..2951a6a 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Unsafe #-}
 {-# LANGUAGE CPP
-           , ForeignFunctionInterface
            , NoImplicitPrelude
            , ScopedTypeVariables
            , BangPatterns
index e253671..11392b1 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
-           , ForeignFunctionInterface
            , GeneralizedNewtypeDeriving
            , NoImplicitPrelude
            , BangPatterns
index b5eb227..74e4111 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
-           , ForeignFunctionInterface
            , CApiFFI
            , GeneralizedNewtypeDeriving
            , NoImplicitPrelude
index fc4b011..a773498 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
-           , ForeignFunctionInterface
            , GeneralizedNewtypeDeriving
            , NoImplicitPrelude
            , BangPatterns
index 310ff4f..c599047 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE BangPatterns, ForeignFunctionInterface, NoImplicitPrelude #-}
+{-# LANGUAGE BangPatterns, NoImplicitPrelude #-}
 module GHC.Event.Thread
     ( getSystemEventManager
     , getSystemTimerManager
index b500ad5..a7568e6 100644 (file)
@@ -2,8 +2,6 @@
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , BangPatterns
-           , ForeignFunctionInterface
-           , EmptyDataDecls
   #-}
 
 -- ----------------------------------------------------------------------------
index 9519253..e0c4f4a 100644 (file)
@@ -4,7 +4,6 @@
            , NoImplicitPrelude
            , MagicHash
            , UnboxedTuples
-           , ForeignFunctionInterface
   #-}
 -- We believe we could deorphan this module, by moving lots of things
 -- around, but we haven't got there yet:
index 9c71cf1..763ba93 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, MagicHash, UnboxedTuples, ForeignFunctionInterface,
-    NoImplicitPrelude #-}
+{-# LANGUAGE CPP, MagicHash, UnboxedTuples, NoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 -----------------------------------------------------------------------------
index e3fddf4..0b344c5 100644 (file)
@@ -1,7 +1,6 @@
 {-# LANGUAGE Trustworthy            #-}
 {-# LANGUAGE CPP                    #-}
 {-# LANGUAGE NoImplicitPrelude      #-}
-{-# LANGUAGE EmptyDataDecls         #-}
 {-# LANGUAGE TypeSynonymInstances   #-}
 {-# LANGUAGE TypeOperators          #-}
 {-# LANGUAGE KindSignatures         #-}
index eb46eb1..b17e326 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, NoImplicitPrelude, ForeignFunctionInterface #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 
 -----------------------------------------------------------------------------
index 08f4c94..eb4d74c 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, NoImplicitPrelude, PatternGuards #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 
 -----------------------------------------------------------------------------
index ddb01fb..6a8ee1a 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, BangPatterns, ForeignFunctionInterface, NoImplicitPrelude,
+{-# LANGUAGE CPP, BangPatterns, NoImplicitPrelude,
              NondecreasingIndentation, MagicHash #-}
 
 module GHC.IO.Encoding.CodePage(
index cbc46a1..f45ee90 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE ForeignFunctionInterface, NoImplicitPrelude, NondecreasingIndentation, RecordWildCards, ScopedTypeVariables, PatternGuards #-}
+{-# LANGUAGE NoImplicitPrelude, NondecreasingIndentation, RecordWildCards, ScopedTypeVariables #-}
 {-# OPTIONS_GHC -fno-warn-name-shadowing #-}
 module GHC.IO.Encoding.CodePage.API (
     mkCodePageEncoding
index 35d2d93..4b24d06 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE NoImplicitPrelude, PatternGuards #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
 -- |
index d46ade9..2ae6146 100644 (file)
@@ -1,7 +1,6 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
-           , ForeignFunctionInterface
            , NondecreasingIndentation
   #-}
 {-# OPTIONS_HADDOCK hide #-}
index fdeeb74..bcc8df9 100644 (file)
@@ -2,7 +2,6 @@
 {-# LANGUAGE CPP
            , NoImplicitPrelude
            , BangPatterns
-           , ForeignFunctionInterface
            , DeriveDataTypeable
   #-}
 {-# OPTIONS_GHC -fno-warn-identities #-}
index df947f8..ac792de 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, NoImplicitPrelude, PatternGuards, ForeignFunctionInterface #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
 
 -----------------------------------------------------------------------------
 -- |
index db90864..e53349a 100644 (file)
@@ -2,7 +2,6 @@
 {-# LANGUAGE NoImplicitPrelude
            , RecordWildCards
            , BangPatterns
-           , PatternGuards
            , NondecreasingIndentation
            , RankNTypes
   #-}
index dbc96a1..f182e7f 100644 (file)
@@ -3,10 +3,8 @@
            , NoImplicitPrelude
            , RecordWildCards
            , BangPatterns
-           , PatternGuards
            , NondecreasingIndentation
            , MagicHash
-           , ForeignFunctionInterface
   #-}
 {-# OPTIONS_GHC -fno-warn-name-shadowing #-}
 {-# OPTIONS_GHC -fno-warn-unused-matches #-}
index 2654ef7..c032218 100644 (file)
@@ -1,5 +1,3 @@
-{-# LANGUAGE ForeignFunctionInterface #-}
-
 -- | /Since: 4.7.0.0/
 module GHC.Profiling where
 
index 582ffea..0cff3c3 100644 (file)
@@ -1,7 +1,6 @@
 \begin{code}
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE NoImplicitPrelude, StandaloneDeriving, PatternGuards,
-             ScopedTypeVariables #-}
+{-# LANGUAGE NoImplicitPrelude, StandaloneDeriving, ScopedTypeVariables #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 -----------------------------------------------------------------------------
index a1dde83..61f6621 100644 (file)
@@ -3,7 +3,6 @@
 {-# LANGUAGE NoImplicitPrelude
            , MagicHash
            , UnboxedTuples
-           , ForeignFunctionInterface
   #-}
 {-# OPTIONS_HADDOCK hide #-}
 
index b95594e..079f5b0 100644 (file)
@@ -13,7 +13,7 @@
 -- /Since: 4.5.0.0/
 -----------------------------------------------------------------------------
 
-{-# LANGUAGE UnboxedTuples, MagicHash, EmptyDataDecls #-}
+{-# LANGUAGE UnboxedTuples, MagicHash #-}
 module GHC.Stack (
     -- * Call stack
     currentCallStack,
index 07cab07..2c9ecaf 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Safe #-}
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE ForeignFunctionInterface #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 
index 09ab583..9e4bc07 100644 (file)
@@ -2,10 +2,8 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP
            , NoImplicitPrelude
-           , ForeignFunctionInterface
            , MagicHash
            , UnboxedTuples
-           , PatternGuards
   #-}
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 {-# OPTIONS_HADDOCK hide #-}
index d6eba25..4786f77 100644 (file)
@@ -2,7 +2,6 @@
 {-# LANGUAGE KindSignatures #-}         -- (used all over)
 {-# LANGUAGE TypeFamilies #-}           -- for declaring operators + sing family
 {-# LANGUAGE TypeOperators #-}          -- for declaring operator
-{-# LANGUAGE EmptyDataDecls #-}         -- for declaring the kinds
 {-# LANGUAGE GADTs #-}                  -- for examining type nats
 {-# LANGUAGE PolyKinds #-}              -- for Sing family
 {-# LANGUAGE FlexibleContexts #-}
index 07ddc59..ef58975 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, NoImplicitPrelude, ForeignFunctionInterface #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 -----------------------------------------------------------------------------
index 40ca176..940ba58 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE ForeignFunctionInterface #-}
 {-# LANGUAGE NoImplicitPrelude #-}
 -----------------------------------------------------------------------------
 -- |
index 0ea6dfb..85634b7 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, NondecreasingIndentation, ForeignFunctionInterface, CApiFFI #-}
+{-# LANGUAGE CPP, NondecreasingIndentation, CApiFFI #-}
 
 -----------------------------------------------------------------------------
 -- |
index 34eea8c..b238360 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Safe #-}
-{-# LANGUAGE CPP, ForeignFunctionInterface #-}
+{-# LANGUAGE CPP #-}
 
 -----------------------------------------------------------------------------
 -- |
index 4f863f2..22665f4 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Safe #-}
-{-# LANGUAGE CPP, ForeignFunctionInterface #-}
+{-# LANGUAGE CPP #-}
 
 -----------------------------------------------------------------------------
 -- |
index 93245d3..4b247f9 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
 {-# LANGUAGE CPP, NoImplicitPrelude #-}
-{-# LANGUAGE ForeignFunctionInterface #-}
 
 -----------------------------------------------------------------------------
 -- |
index 05d9d00..f162a75 100644 (file)
@@ -1,5 +1,4 @@
 {-# LANGUAGE Safe #-}
-{-# LANGUAGE ForeignFunctionInterface #-}
 
 -----------------------------------------------------------------------------
 -- |
index 1869f75..89ef6f4 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP, NoImplicitPrelude, ForeignFunctionInterface, CApiFFI,
-             EmptyDataDecls #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, CApiFFI #-}
 {-# OPTIONS_HADDOCK hide #-}
 
 -----------------------------------------------------------------------------
index a49f318..429f0bf 100644 (file)
@@ -1,7 +1,5 @@
 -- trac #2059
 
-{-# LANGUAGE ForeignFunctionInterface #-}
-
 module Main(main) where
 
 import Control.Monad