Rename Switches.hs to Predicates.hs.

src/Switches.hs → src/Predicates.hs

-module Switches (
+module Predicates (
     stage, package, builder, stagedBuilder, file, way,
     stage0, stage1, stage2, notStage, notStage0,
     registerPackage, splitObjects

src/Rules/Data.hs

@@ -5,8 +5,8 @@ import Util
 import Target (PartialTarget (..), fullTarget)
 import Package
 import Builder
-import Switches (registerPackage)
 import Expression
+import Predicates (registerPackage)
 import Oracles.PackageDeps
 import Settings.Packages
 import Settings.TargetDirectory

src/Rules/Library.hs

@@ -6,8 +6,8 @@ import Util
 import Target (PartialTarget (..), fullTarget)
 import Builder
 import Package
-import Switches (splitObjects)
 import Expression
+import Predicates (splitObjects)
 import Oracles.PackageData
 import Settings.Util
 import Settings.TargetDirectory

src/Settings/Builders/Ar.hs

 module Settings.Builders.Ar (arArgs, arPersistentArgsCount) where
 
 import Builder
-import Switches (builder)
 import Expression
+import Predicates (builder)
 import Settings.Util
 
 arArgs :: Args

src/Settings/Builders/Gcc.hs

@@ -3,8 +3,8 @@ module Settings.Builders.Gcc (gccArgs, gccMArgs) where
 import Base
 import Util
 import Builder
-import Switches (stagedBuilder)
 import Expression
+import Predicates (stagedBuilder)
 import Oracles.PackageData
 import Settings.Util
 

src/Settings/Builders/Ghc.hs

@@ -4,8 +4,8 @@ import Way
 import Util
 import Stage
 import Builder
-import Switches (stagedBuilder, splitObjects, stage0)
 import Expression
+import Predicates (stagedBuilder, splitObjects, stage0)
 import Oracles.Flag
 import Oracles.PackageData
 import Settings.Util

src/Settings/Builders/GhcCabal.hs

@@ -9,8 +9,8 @@ import Util
 import Stage
 import Builder
 import Package
-import Switches
 import Expression
+import Predicates
 import Oracles.Flag
 import Oracles.Setting
 import Settings.User

src/Settings/Builders/GhcPkg.hs

@@ -2,8 +2,8 @@ module Settings.Builders.GhcPkg (ghcPkgArgs) where
 
 import Util
 import Builder
-import Switches
 import Expression
+import Predicates
 import Settings.Util
 import Settings.Builders.GhcCabal
 

src/Settings/Builders/Haddock.hs

@@ -4,8 +4,8 @@ import Base
 import Util
 import Builder
 import Package
-import Switches (builder, package, stage1)
 import Expression
+import Predicates (builder, package, stage1)
 import Oracles.PackageData
 import Settings.Util
 import Settings.Packages

src/Settings/Builders/Ld.hs

 module Settings.Builders.Ld (ldArgs) where
 
 import Builder
-import Switches (builder)
 import Expression
+import Predicates (builder)
 import Oracles.Setting
 import Settings.Util
 

src/Settings/Packages.hs

@@ -4,8 +4,8 @@ module Settings.Packages (
     ) where
 
 import Package
-import Switches
 import Expression
+import Predicates
 import Oracles.Setting
 import Settings.User
 import Settings.Default

src/Settings/User.hs

@@ -7,8 +7,8 @@ module Settings.User (
 
 import Stage
 import Package
-import Switches
 import Expression
+import Predicates
 import Settings.Default
 
 -- No user-specific settings by default

src/Settings/Util.hs

@@ -13,8 +13,8 @@ import Util
 import Stage
 import Builder
 import Package
-import Switches
 import Expression
+import Predicates
 import Oracles.Flag
 import Oracles.Setting
 import Oracles.PackageData

src/Settings/Ways.hs

@@ -2,8 +2,8 @@ module Settings.Ways (getWays, getRtsWays) where
 
 import Way
 import Stage
-import Switches
 import Expression
+import Predicates
 import Oracles.Flag
 import Settings.User