diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2018-12-15 22:38:45 +0100 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2019-01-22 03:06:51 +0100 |
| commit | 8b1729d8da802c6f8ffa2c8efd1118ef9ef543e0 (patch) | |
| tree | 4a5272da0da88ae76a2076ea4e0484a54dee2bd0 /src/CabalHelper | |
| parent | b5f9ccc08ca8468808870279d335947a5d868511 (diff) | |
Rename helper command: s/compiler-version/compiler-id/
Diffstat (limited to 'src/CabalHelper')
| -rw-r--r-- | src/CabalHelper/Compiletime/Types.hs | 2 | ||||
| -rw-r--r-- | src/CabalHelper/Runtime/Main.hs | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/CabalHelper/Compiletime/Types.hs b/src/CabalHelper/Compiletime/Types.hs index e646f5e..e632c3b 100644 --- a/src/CabalHelper/Compiletime/Types.hs +++ b/src/CabalHelper/Compiletime/Types.hs @@ -172,7 +172,7 @@ data UnitInfo = UnitInfo -- ^ The components of the unit: libraries, executables, test-suites, -- benchmarks and so on. - , uiCompilerVersion :: !(String, Version) + , uiCompilerId :: !(String, Version) -- ^ The version of GHC the unit is configured to use , uiPackageDbStack :: !([ChPkgDb]) diff --git a/src/CabalHelper/Runtime/Main.hs b/src/CabalHelper/Runtime/Main.hs index 70a0cc5..2a72f37 100644 --- a/src/CabalHelper/Runtime/Main.hs +++ b/src/CabalHelper/Runtime/Main.hs @@ -243,7 +243,7 @@ usage = do ++" | config-flags\n" ++" | non-default-config-flags\n" ++" | write-autogen-files\n" - ++" | compiler-version\n" + ++" | compiler-id\n" ++" | component-info\n" ++" | print-lbi [--human]\n" ++" ) ...\n" @@ -253,7 +253,7 @@ commands = [ "flags" , "config-flags" , "non-default-config-flags" , "write-autogen-files" - , "compiler-version" + , "compiler-id" , "package-db-stack" , "component-info" , "print-lbi" @@ -346,7 +346,7 @@ main = do initialBuildStepsForAllComponents distdir pd lbi v return Nothing - "compiler-version":[] -> do + "compiler-id":[] -> do let CompilerId comp ver = compilerId $ compiler lbi return $ Just $ ChResponseVersion $ (,) (show comp) (toDataVersion ver) |