Build rts in stage1 instead of dist
authorMoritz Angermann <moritz.angermann@gmail.com>
Mon, 4 Jan 2016 12:26:14 +0000 (20:26 +0800)
committerMoritz Angermann <moritz.angermann@gmail.com>
Mon, 4 Jan 2016 12:26:14 +0000 (20:26 +0800)
`rts/dist` is hardcoded, while the shake build system builds in `rts/stage1`. Fixes #86

src/Rules/Data.hs

index 274092b..b68f1c7 100644 (file)
@@ -104,7 +104,7 @@ buildPackageData rs target @ (PartialTarget stage pkg) = do
                      , "includes/ghcplatform.h" ]
                 build $ fullTarget target HsCpp [rtsConfIn] [rtsConf]
                 old <- liftIO $ readFile rtsConf
-                let new = unlines . map (replace "\"\"" "")
+                let new = unlines . map (replace "\"\"" "" . replace "rts/dist/build" "rts/stage1/build")
                         . filter (not . null) $ lines old
                 liftIO $ length new `seq` writeFile rtsConf new