From 2351224340999dc21997a19db094f644c240318b Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sun, 26 Jul 2020 10:19:54 -0700
Subject: dev: move _{bild,keep,skey} to _/{bild,keep,skey}

---
 Biz/Bild.hs       | 18 +++++++++---------
 Biz/Bild.scm      |  4 ++--
 Biz/Ibb/Server.hs |  2 +-
 3 files changed, 12 insertions(+), 12 deletions(-)

(limited to 'Biz')

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
diff --git a/Biz/Bild.scm b/Biz/Bild.scm
index 1fcae96..5a769de 100755
--- a/Biz/Bild.scm
+++ b/Biz/Bild.scm
@@ -40,7 +40,7 @@
 ;; The general scheme is to build the things described by the targets. A target
 ;; is a namespace. You can list as many as you want, but you must list at least
 ;; one. It could just be `.` for the current directory. Build outputs will go
-;; into the _bild directory in the root of the project.
+;; into the _/bild directory in the root of the project.
 ;;
 ;;     bild biz.web
 ;;
@@ -69,7 +69,7 @@
 ;; invocation to compile the namespace 'com.simatime.bild' which depends on
 ;; 'com.simatime.lib':
 ;;
-;;     ghc com/simatime/bild.hs -i com/simatime/lib.hs -o _bild/bild -v \
+;;     ghc com/simatime/bild.hs -i com/simatime/lib.hs -o _/bild -v \
 ;;         -main-is Biz.Bild.main
 ;;
 ;; The general template of which is:
diff --git a/Biz/Ibb/Server.hs b/Biz/Ibb/Server.hs
index e87c55a..d7b4969 100644
--- a/Biz/Ibb/Server.hs
+++ b/Biz/Ibb/Server.hs
@@ -57,7 +57,7 @@ main = do
   say "rise: ibb"
   staticDir <- fromMaybe "static" <$> lookupEnv "STATIC_DIR" :: IO String
   port <- (read . fromMaybe "3000" <$> lookupEnv "PORT") :: IO Int
-  keep <- Keep.openLocal "_keep/"
+  keep <- Keep.openLocal "_/keep/"
   say "port: 3000"
   run port $ logStdout $ compress $ app staticDir keep
   where
-- 
cgit v1.2.3