Better log message

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,