Don't try to do remote builds when on lithium

1 files changed, 11 insertions, 7 deletions

diff --git a/Biz/Bild.hs b/Biz/Bild.hs
index f3c68e4..c1cd24f 100644
--- a/Biz/Bild.hs
+++ b/Biz/Bild.hs
@@ -184,6 +184,7 @@ analyze :: String -> IO Target
 analyze s = do
   user <- Env.getEnv "USER"
   root <- Env.getEnv "BIZ_ROOT"
+  host <- chomp </ readFile "/etc/hostname"
   cwd <- Dir.getCurrentDirectory
   let path = cwd </> s
       namespace =
@@ -210,13 +211,16 @@ analyze s = do
             compiler = NixBuild,
             out = "",
             builder =
-              join
-                [ "ssh://",
-                  user,
-                  "@dev.simatime.com?ssh-key=/home/",
-                  user,
-                  "/.ssh/id_rsa"
-                ],
+              if host == "lithium"
+                then user <> "@localhost"
+                else
+                  join
+                    [ "ssh://",
+                      user,
+                      "@dev.simatime.com?ssh-key=/home/",
+                      user,
+                      "/.ssh/id_rsa"
+                    ],
             ..
           }
     ".scm" ->