summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2023-08-02 17:50:02 -0400
committerBen Sima <ben@bsima.me>2023-08-02 17:50:02 -0400
commit40c6c18e57d88b101bd4396d48aefa681689bfb3 (patch)
treea7936a0f5b3588f272ce39a420d62104ea6f1036
parent3887aa4e8d2cf2703d8f1b5d26ac2c34544949b8 (diff)
Better log message
-rw-r--r--Biz/Bild.hs10
1 files changed, 6 insertions, 4 deletions
diff --git a/Biz/Bild.hs b/Biz/Bild.hs
index f0b829d..d20c46e 100644
--- a/Biz/Bild.hs
+++ b/Biz/Bild.hs
@@ -676,7 +676,7 @@ build andTest loud analysis =
Ghc -> case out of
Meta.None -> pure (Exit.ExitSuccess, mempty)
Meta.Bin _ -> do
- Log.info ["bild", "nixBuild", "ghc", nschunk namespace]
+ Log.info ["bild", "nix", toLog builder, nschunk namespace]
result <- nixBuild loud target
if andTest && (isSuccess <| fst result)
then test loud target
@@ -697,9 +697,6 @@ build andTest loud analysis =
NixBuild -> do
Log.info ["bild", "nix", toLog builder, nschunk namespace]
proc loud namespace (toNixFlag compiler) compilerFlags
- where
- toLog (Local u) = u
- toLog (Remote u h) = u <> "@" <> h
Copy -> do
Log.warn ["bild", "copy", "not implemented yet", nschunk namespace]
pure (Exit.ExitSuccess, mempty)
@@ -710,6 +707,11 @@ build andTest loud analysis =
Log.info ["bild", "dev", "lisp", nschunk namespace]
proc loud namespace (toNixFlag compiler) compilerFlags
+-- | Format for logging
+toLog :: Builder -> Text
+toLog (Local u) = u
+toLog (Remote u h) = u <> "@" <> h
+
data Proc = Proc
{ loud :: Bool,
cmd :: String,