summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-05-30 14:03:23 -0400
committerJoey Hess2015-05-30 14:03:23 -0400
commit7b8b77936096e9a081494bce2756b9793d98a345 (patch)
tree69a0fb558e005b1844d12f15867a9fc034dc3afb
parent536d9fec70eb3343e51200915555ac651a57f3f4 (diff)
revert test
-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)