diff options
Diffstat (limited to 'pkgs/development/compilers/ghcjs/8.10/generate_host_version.hs')
-rw-r--r-- | pkgs/development/compilers/ghcjs/8.10/generate_host_version.hs | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/pkgs/development/compilers/ghcjs/8.10/generate_host_version.hs b/pkgs/development/compilers/ghcjs/8.10/generate_host_version.hs deleted file mode 100644 index 8bf2583d238c..000000000000 --- a/pkgs/development/compilers/ghcjs/8.10/generate_host_version.hs +++ /dev/null @@ -1,54 +0,0 @@ --- Generate the Host.hs and Version.hs as done by hadrian/src/Rules/Generate.hs - -import GHC.Platform.Host -import GHC.Version - -main = do - writeFile "Version.hs" versionHs - writeFile "Host.hs" platformHostHs - --- | Generate @Version.hs@ files. -versionHs :: String -versionHs = unlines - [ "module GHC.Version where" - , "" - , "import Prelude -- See Note [Why do we import Prelude here?]" - , "" - , "cProjectGitCommitId :: String" - , "cProjectGitCommitId = " ++ show cProjectGitCommitId - , "" - , "cProjectVersion :: String" - , "cProjectVersion = " ++ show cProjectVersion - , "" - , "cProjectVersionInt :: String" - , "cProjectVersionInt = " ++ show cProjectVersionInt - , "" - , "cProjectPatchLevel :: String" - , "cProjectPatchLevel = " ++ show cProjectPatchLevel - , "" - , "cProjectPatchLevel1 :: String" - , "cProjectPatchLevel1 = " ++ show cProjectPatchLevel1 - , "" - , "cProjectPatchLevel2 :: String" - , "cProjectPatchLevel2 = " ++ show cProjectPatchLevel2 - ] - --- | Generate @Platform/Host.hs@ files. -platformHostHs :: String -platformHostHs = unlines - [ "module GHC.Platform.Host where" - , "" - , "import GHC.Platform" - , "" - , "cHostPlatformArch :: Arch" - , "cHostPlatformArch = " ++ show cHostPlatformArch - , "" - , "cHostPlatformOS :: OS" - , "cHostPlatformOS = " ++ show cHostPlatformOS - , "" - , "cHostPlatformMini :: PlatformMini" - , "cHostPlatformMini = PlatformMini" - , " { platformMini_arch = cHostPlatformArch" - , " , platformMini_os = cHostPlatformOS" - , " }" - ] |