Commit 8b24f9f0 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Drop duplication of ghc_boot_platform.h

See #98.
parent e1b6c568
......@@ -158,8 +158,8 @@ generatePackageCode _ target @ (PartialTarget stage pkg) =
priority 2.0 $ do
-- TODO: this is temporary hack, get rid of this (#113)
let oldPath = pkgPath pkg -/- targetDirectory stage pkg -/- "build"
olden f = oldPath ++ (drop (length buildPath) f)
let oldPath = pkgPath pkg -/- targetDirectory stage pkg
olden f = oldPath ++ (drop (length (targetPath stage pkg)) f)
when (pkg == compiler) $ buildPath -/- "Config.hs" %> \file -> do
file <~ generateConfigHs
......@@ -167,7 +167,6 @@ generatePackageCode _ target @ (PartialTarget stage pkg) =
when (pkg == compiler) $ platformH stage %> \file -> do
file <~ generateGhcBootPlatformH
olden file <~ generateGhcBootPlatformH -- TODO: get rid of this (#113)
when (pkg == ghcPkg) $ buildPath -/- "Version.hs" %> \file -> do
file <~ generateVersionHs
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment