diff options
Diffstat (limited to 'Biz/Bild.hs')
| -rw-r--r-- | Biz/Bild.hs | 18 |
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" -> |