propellor spin

This commit is contained in:
Joey Hess 2015-05-30 14:02:25 -04:00
parent 0928b56060
commit 536d9fec70
Failed to extract signature
1 changed files with 1 additions and 0 deletions

View File

@ -102,6 +102,7 @@ getSshTarget target hst
go (Left e) = useip (show e) go (Left e) = useip (show e)
go (Right addrinfos) = do go (Right addrinfos) = do
configaddrinfos <- catMaybes <$> mapM iptoaddr configips configaddrinfos <- catMaybes <$> mapM iptoaddr configips
print (configips, configaddrinfos, map addrAddress addrinfos)
if any (`elem` configaddrinfos) (map addrAddress addrinfos) if any (`elem` configaddrinfos) (map addrAddress addrinfos)
then return target then return target
else useip ("DNS lookup did not return any of the expected addresses " ++ show configips) else useip ("DNS lookup did not return any of the expected addresses " ++ show configips)