Rename runHaskell wrapper to runGhc for consistency
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 27 Apr 2017 20:39:41 +0000 (21:39 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 27 Apr 2017 20:39:41 +0000 (21:39 +0100)
See #305

hadrian.cabal
src/Rules/Program.hs
src/Rules/Wrappers/RunGhc.hs [moved from src/Rules/Wrappers/Runhaskell.hs with 59% similarity]

index fd6c036..15c3a2b 100644 (file)
@@ -66,6 +66,7 @@ executable hadrian
                        , Rules.Test
                        , Rules.Wrappers.Ghc
                        , Rules.Wrappers.GhcPkg
+                       , Rules.Wrappers.RunGhc
                        , Settings
                        , Settings.Builders.Alex
                        , Settings.Builders.Ar
index 71fb8b7..62d4b24 100644 (file)
@@ -12,7 +12,7 @@ import Oracles.ModuleFiles
 import Oracles.PackageData
 import Rules.Wrappers.Ghc
 import Rules.Wrappers.GhcPkg
-import Rules.Wrappers.Runhaskell
+import Rules.Wrappers.RunGhc
 import Settings
 import Settings.Path
 import Target
@@ -26,7 +26,7 @@ type Wrapper = FilePath -> Expr String
 wrappers :: [(Context, Wrapper)]
 wrappers = [ (vanillaContext Stage0 ghc   , ghcWrapper   )
            , (vanillaContext Stage1 ghc   , ghcWrapper   )
-           , (vanillaContext Stage1 runGhc, runhaskellWrapper)
+           , (vanillaContext Stage1 runGhc, runGhcWrapper)
            , (vanillaContext Stage0 ghcPkg, ghcPkgWrapper) ]
 
 buildProgram :: [(Resource, Int)] -> Context -> Rules ()
similarity index 59%
rename from src/Rules/Wrappers/Runhaskell.hs
rename to src/Rules/Wrappers/RunGhc.hs
index 521b41a..95b5700 100644 (file)
@@ -1,12 +1,12 @@
-module Rules.Wrappers.Runhaskell (runhaskellWrapper) where
+module Rules.Wrappers.RunGhc (runGhcWrapper) where
 
 import Base
 import Expression
 import Oracles.Path
 
-runhaskellWrapper :: FilePath -> Expr String
-runhaskellWrapper program = do
-    lift $ need [sourcePath -/- "Rules/Wrappers/Runhaskell.hs"]
+runGhcWrapper :: FilePath -> Expr String
+runGhcWrapper program = do
+    lift $ need [sourcePath -/- "Rules/Wrappers/RunGhc.hs"]
     top <- getTopDirectory
     return $ unlines
         [ "#!/bin/bash"