tweag/asterius
1
1
Fork 0
mirror of https://github.com/tweag/asterius.git synced 2024-10-26 09:21:04 +03:00
Code Issues Projects Releases Wiki Activity

WIP

Browse Source
This commit is contained in:
Cheng Shao 2020-12-02 11:13:15 +00:00
parent 12c8fae1b6
commit d1900c7ef4
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
asterius/src/Asterius/Boot.hs
View File

@ -148,14 +148,9 @@ bootRTSCmm BootArgs {..} =
)
liftIO $ do
obj_paths <- readIORef obj_paths_ref
tmpdir <- getTemporaryDirectory
(rsp_path, rsp_h) <- openTempFile tmpdir "ar.rsp"
hPutStr rsp_h $ unlines obj_paths
hClose rsp_h
callProcess
"ar"
[obj_topdir </> "rts" </> "libHSrts.a", '@' : rsp_path]
removeFile rsp_path
"ar" $
["r", obj_topdir </> "rts" </> "libHSrts.a"] <> obj_paths
where
rts_path = bootLibsPath </> "rts"
obj_topdir = bootDir </> "asterius_lib"