From 536d9fec70eb3343e51200915555ac651a57f3f4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 30 May 2015 14:02:25 -0400 Subject: propellor spin --- src/Propellor/Spin.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Propellor/Spin.hs') diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs index 3ff1ec21..9685a486 100644 --- a/src/Propellor/Spin.hs +++ b/src/Propellor/Spin.hs @@ -102,6 +102,7 @@ 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