diff options
Diffstat (limited to 'Biz')
| -rw-r--r-- | Biz/Bild.hs | 18 | ||||
| -rwxr-xr-x | Biz/Bild.scm | 4 | ||||
| -rw-r--r-- | Biz/Ibb/Server.hs | 2 |
3 files changed, 12 insertions, 12 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 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 |