pyrox.dev
1diff --git a/src-bin/Boot.hs b/src-bin/Boot.hs
2index db8b12e..7b815c5 100644
3--- a/src-bin/Boot.hs
4+++ b/src-bin/Boot.hs
5@@ -526,9 +526,7 @@ initPackageDB :: B ()
6 initPackageDB = do
7 msg info "creating package databases"
8 initDB "--global" <^> beLocations . blGlobalDB
9- traverseOf_ _Just initUser <^> beLocations . blUserDBDir
10 where
11- initUser dir = rm_f (dir </> "package.conf") >> initDB "--user" (dir </> "package.conf.d")
12 initDB dbName db = do
13 rm_rf db >> mkdir_p db
14 ghcjs_pkg_ ["init", toTextI db] `catchAny_` return ()
15@@ -552,29 +550,22 @@ installDevelopmentTree = subTop $ do
16 msgD info $ "preparing development boot tree"
17 checkpoint' "ghcjs-boot-git" "ghcjs-boot repository already cloned and prepared" $ do
18 testGit "ghcjs-boot" >>= \case
19- Just False -> failWith "ghcjs-boot already exists and is not a git repository"
20- Just True -> do
21- msg info "ghcjs-boot repository already exists but checkpoint not reached, cleaning first, then cloning"
22- rm_rf "ghcjs-boot"
23+ Just _ -> do
24+ msg info "ghcjs-boot repository already exists; initializing ghcjs-boot"
25 initGhcjsBoot
26 Nothing -> do
27 msgD info "cloning ghcjs-boot git repository"
28 initGhcjsBoot
29 checkpoint' "shims-git" "shims repository already cloned" $ do
30 testGit "shims" >>= \case
31- Just False -> failWith "shims already exists and is not a git repository"
32- Just True -> do
33- msgD info "shims repository already exists but checkpoint not reached, cleaning first, then cloning"
34- rm_rf "shims"
35- cloneGit shimsDescr "shims" bsrcShimsDevBranch bsrcShimsDev
36+ Just _ -> do
37+ msgD info "shims repository already exists; moving on"
38 Nothing -> do
39 msgD info "cloning shims git repository"
40 cloneGit shimsDescr "shims" bsrcShimsDevBranch bsrcShimsDev
41 where
42 initGhcjsBoot = sub $ do
43- cloneGit bootDescr "ghcjs-boot" bsrcBootDevBranch bsrcBootDev
44 cd "ghcjs-boot"
45- git_ ["submodule", "update", "--init", "--recursive"]
46 mapM_ patchPackage =<< allPackages
47 preparePrimops
48 buildGenPrim
49@@ -1110,14 +1101,14 @@ cabalInstallFlags parmakeGhcjs = do
50 , "--avoid-reinstalls"
51 , "--builddir", "dist"
52 , "--with-compiler", ghcjs ^. pgmLocText
53+ , "--with-gcc", "@CC@"
54 , "--with-hc-pkg", ghcjsPkg ^. pgmLocText
55- , "--prefix", toTextI instDir
56+ , "--prefix", "@PREFIX@"
57+ , "--libdir", "$prefix/lib/$compiler"
58+ , "--libsubdir", "$pkgid"
59 , bool haddock "--enable-documentation" "--disable-documentation"
60 , "--haddock-html"
61--- workaround for hoogle support being broken in haddock for GHC 7.10RC1
62-#if !(__GLASGOW_HASKELL__ >= 709)
63 , "--haddock-hoogle"
64-#endif
65 , "--haddock-hyperlink-source"
66 -- don't slow down Windows builds too much, on other platforms we get this more
67 -- or less for free, thanks to dynamic-too
68diff --git a/src/Compiler/Info.hs b/src/Compiler/Info.hs
69index 33a401f..e2405a7 100644
70--- a/src/Compiler/Info.hs
71+++ b/src/Compiler/Info.hs
72@@ -48,13 +48,7 @@ compilerInfo nativeToo dflags = do
73
74 -- | the directory to use if started without -B flag
75 getDefaultTopDir :: IO FilePath
76-getDefaultTopDir = do
77- appdir <- getAppUserDataDirectory "ghcjs"
78- return (appdir </> subdir </> "ghcjs")
79- where
80- targetARCH = arch
81- targetOS = os
82- subdir = targetARCH ++ '-':targetOS ++ '-':getFullCompilerVersion
83+getDefaultTopDir = return "@PREFIX@/lib/ghcjs-@VERSION@"
84
85 getDefaultLibDir :: IO FilePath
86 getDefaultLibDir = getDefaultTopDir