diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-05-30 14:02:25 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-05-30 14:02:25 -0400 |
| commit | 536d9fec70eb3343e51200915555ac651a57f3f4 (patch) | |
| tree | ff273c6bb15c0fce79f6610e2f15febb9b1d3837 | |
| parent | 0928b56060bccb1a53b2e536ace309b67ccdff73 (diff) | |
propellor spin
| -rw-r--r-- | src/Propellor/Spin.hs | 1 |
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) |