diff options
| -rw-r--r-- | Biz/Bild.hs | 10 |
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, |