From 183d16c1793c14769881536dcd0bb5f9a9f760ce Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sun, 6 Dec 2020 13:51:19 -0500
Subject: Don't try to do remote builds when on lithium

---
 Biz/Bild.hs | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

(limited to 'Biz')

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" ->
-- 
cgit v1.2.3