Add missing/remove redundant `{-# LANGUAGE CPP #-}`s
authorHerbert Valerio Riedel <hvr@gnu.org>
Sat, 28 Sep 2013 15:35:30 +0000 (17:35 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Sat, 28 Sep 2013 15:35:30 +0000 (17:35 +0200)
The `CPP` forgotten were in windows-specific modules, and the redundant
`CPP` files were removed in some `.hsc` files.

Note: `.hsc` files only require `{-# LANGUAGE CPP #-}` annotations if
they use `##`, as `hsc2hs` removes all non-escaped `#`-directives.

Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
GHC/Conc/Windows.hs
GHC/Event/EPoll.hsc
GHC/Event/KQueue.hsc
GHC/Event/Poll.hsc
GHC/IO/Encoding/CodePage/API.hs
GHC/IO/Encoding/CodePage/Table.hs
GHC/Stats.hsc
base.cabal
codepages/MakeTable.hs

index 41502f0..ad60a07 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE NoImplicitPrelude, MagicHash, UnboxedTuples, DeriveDataTypeable #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, MagicHash, UnboxedTuples, DeriveDataTypeable #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 {-# OPTIONS_HADDOCK not-home #-}
 
index 11392b1..fc81441 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP
-           , GeneralizedNewtypeDeriving
+{-# LANGUAGE GeneralizedNewtypeDeriving
            , NoImplicitPrelude
            , BangPatterns
   #-}
index 74e4111..b2132f6 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP
-           , CApiFFI
+{-# LANGUAGE CApiFFI
            , GeneralizedNewtypeDeriving
            , NoImplicitPrelude
            , RecordWildCards
index a773498..665949b 100644 (file)
@@ -1,6 +1,5 @@
 {-# LANGUAGE Trustworthy #-}
-{-# LANGUAGE CPP
-           , GeneralizedNewtypeDeriving
+{-# LANGUAGE GeneralizedNewtypeDeriving
            , NoImplicitPrelude
            , BangPatterns
   #-}
index f45ee90..570ea80 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE NoImplicitPrelude, NondecreasingIndentation, RecordWildCards, ScopedTypeVariables #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, NondecreasingIndentation, RecordWildCards, ScopedTypeVariables #-}
 {-# OPTIONS_GHC -fno-warn-name-shadowing #-}
 module GHC.IO.Encoding.CodePage.API (
     mkCodePageEncoding
index 7e8edb9..eed0841 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP, MagicHash, NoImplicitPrelude #-}
+{-# LANGUAGE MagicHash, NoImplicitPrelude #-}
 -- Do not edit this file directly!
 -- It was generated by the MakeTable.hs script using the files below.
 -- To regenerate it, run "make" in ../../../../codepages/
index 2c9ecaf..11e31b9 100644 (file)
@@ -1,5 +1,4 @@
 {-# LANGUAGE Safe #-}
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# OPTIONS_GHC -funbox-strict-fields #-}
 
index f8993df..d74f472 100644 (file)
@@ -63,7 +63,6 @@ Library
         MagicHash
         MultiParamTypeClasses
         NegativeLiterals
-        NoBangPatterns
         NoImplicitPrelude
         NondecreasingIndentation
         OverlappingInstances
index 0a05f85..7b3328e 100644 (file)
@@ -200,7 +200,7 @@ compress n ms = runState (mapM lookupOrAdd chunks) (Map.empty, Map.empty)
 -- Static parts of the generated module.
 
 languageDirectives :: [String]
-languageDirectives = ["{-# LANGUAGE CPP, MagicHash, NoImplicitPrelude #-}"]
+languageDirectives = ["{-# LANGUAGE MagicHash, NoImplicitPrelude #-}"]
 
 
 firstComment :: [FilePath] -> [String]