summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--config-joey.hs2
-rw-r--r--src/Propellor/Spin.hs1
2 files changed, 1 insertions, 2 deletions
diff --git a/config-joey.hs b/config-joey.hs
index 0219c5f2..73c9687b 100644
--- a/config-joey.hs
+++ b/config-joey.hs
@@ -145,7 +145,7 @@ orca = standardSystem "orca.kitenet.net" Unstable "amd64"
honeybee :: Host
honeybee = standardSystem "honeybee.kitenet.net" Testing "armhf"
[ "Arm git-annex build box." ]
- & ipv6 "2001:4830:1600:187::3"
+ & ipv6 "2001:4830:1600:187::2"
-- No unattended upgrades as there is currently no console access.
-- (Also, system is not currently running a stock kernel,
diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs
index 9685a486..3ff1ec21 100644
--- a/src/Propellor/Spin.hs
+++ b/src/Propellor/Spin.hs
@@ -102,7 +102,6 @@ getSshTarget target hst
go (Left e) = useip (show e)
go (Right addrinfos) = do
configaddrinfos <- catMaybes <$> mapM iptoaddr configips
- print (configips, configaddrinfos, map addrAddress addrinfos)
if any (`elem` configaddrinfos) (map addrAddress addrinfos)
then return target
else useip ("DNS lookup did not return any of the expected addresses " ++ show configips)