summaryrefslogtreecommitdiff
path: root/Biz/Bild.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Biz/Bild.hs')
-rw-r--r--Biz/Bild.hs18
1 files changed, 9 insertions, 9 deletions
diff --git a/Biz/Bild.hs b/Biz/Bild.hs
index 7e67b8d..983f778 100644
--- a/Biz/Bild.hs
+++ b/Biz/Bild.hs
@@ -5,8 +5,8 @@
-- | A general purpose build tool.
--
--- - with a nix build, results are linked in _bild/nix/<target>
--- - for a dev build, results are stored in _bild/dev/<target>
+-- - with a nix build, results are linked in _/bild/nix/<target>
+-- - for a dev build, results are stored in _/bild/dev/<target>
module Biz.Bild where
import Alpha hiding ((<.>), sym)
@@ -84,16 +84,16 @@ build Target {..} = do
case compiler of
Ghc -> do
putText <| "bild: ghc: " <> Text.pack namespace
- let out = root </> "_bild/dev/bin"
+ let out = root </> "_/bild/dev/bin"
Dir.createDirectoryIfMissing True out
Process.callProcess
"ghc"
[ "-Werror",
"-i" <> root,
"-odir",
- root </> "_bild/int",
+ root </> "_/bild/int",
"-hidir",
- root </> "_bild/int",
+ root </> "_/bild/int",
"--make",
path,
"-main-is",
@@ -103,16 +103,16 @@ build Target {..} = do
]
Ghcjs -> do
putText <| "bild: ghcjs: " <> Text.pack namespace
- let out = root </> "_bild/dev/static"
+ let out = root </> "_/bild/dev/static"
Dir.createDirectoryIfMissing True out
Process.callProcess
"ghcjs"
[ "-Werror",
"-i" <> root,
"-odir",
- root </> "_bild/int",
+ root </> "_/bild/int",
"-hidir",
- root </> "_bild/int",
+ root </> "_/bild/int",
"--make",
path,
"-main-is",
@@ -127,7 +127,7 @@ build Target {..} = do
Process.callProcess
"nix-build"
[ "-o",
- root </> "_bild/nix" </> qualifiedTarget,
+ root </> "_/bild/nix" </> qualifiedTarget,
root </> "default.nix",
"--attr",
qualifiedTarget