Rename Test to Selftest.

snowleopard · Jan 27, 2016 · b06bae8 · b06bae8
1 parent 92a3ffb
commit b06bae8
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/shaking-up-ghc.cabal b/shaking-up-ghc.cabal
@@ -65,6 +65,7 @@ executable ghc-shake
                        , Rules.Resources
                        , Rules.Wrappers.Ghc
                        , Rules.Wrappers.GhcPkg
+                       , Selftest
                        , Settings
                        , Settings.Args
                        , Settings.Builders.Alex
@@ -104,7 +105,6 @@ executable ghc-shake
                        , Settings.Ways
                        , Stage
                        , Target
-                       , Test
                        , Way
 
     default-language:    Haskell2010

diff --git a/src/Main.hs b/src/Main.hs
@@ -14,7 +14,7 @@ import qualified Rules.Gmp
 import qualified Rules.Libffi
 import qualified Rules.Oracles
 import qualified Rules.Perl
-import qualified Test
+import qualified Selftest
 
 main :: IO ()
 main = shakeArgsWith options CmdLineFlag.cmdFlags $ \cmdLineFlags targets -> do
@@ -37,7 +37,7 @@ main = shakeArgsWith options CmdLineFlag.cmdFlags $ \cmdLineFlags targets -> do
         , Rules.Perl.perlScriptRules
         , Rules.generateTargets
         , Rules.packageRules
-        , Test.testRules ]
+        , Selftest.selftestRules ]
     options = shakeOptions
         { shakeChange   = ChangeModtimeAndDigest
         , shakeFiles    = Base.shakeFilesPath

diff --git a/src/Test.hs → src/Selftest.hs b/src/Test.hs → src/Selftest.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
-module Test (testRules) where
+module Selftest (selftestRules) where
 
 import Development.Shake
 import Settings.Builders.Ar (chunksOfSize)
@@ -13,8 +13,8 @@ instance Arbitrary Way where
 instance Arbitrary WayUnit where
     arbitrary = arbitraryBoundedEnum
 
-testRules :: Rules ()
-testRules =
+selftestRules :: Rules ()
+selftestRules =
     "selftest" ~> do
         test $ \(x :: Way) -> read (show x) == x
         test $ \n xs ->