summaryrefslogtreecommitdiff
path: root/src/Propellor/Spin.hs
diff options
context:
space:
mode:
authorJoey Hess2015-05-30 14:02:25 -0400
committerJoey Hess2015-05-30 14:02:25 -0400
commit536d9fec70eb3343e51200915555ac651a57f3f4 (patch)
treeff273c6bb15c0fce79f6610e2f15febb9b1d3837 /src/Propellor/Spin.hs
parent0928b56060bccb1a53b2e536ace309b67ccdff73 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Spin.hs')
-rw-r--r--src/Propellor/Spin.hs1
1 files changed, 1 insertions, 0 deletions
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)