From 7b8b77936096e9a081494bce2756b9793d98a345 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 30 May 2015 14:03:23 -0400 Subject: revert test --- config-joey.hs | 2 +- src/Propellor/Spin.hs | 1 - 2 files changed, 1 insertion(+), 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) -- cgit v1.2.3