From f3f60a74c47ee837331f24b3541596deda97169c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 1 Jan 2015 13:36:51 -0400 Subject: propellor spin --- src/Propellor/Spin.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'src/Propellor') diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs index 476cb1a4..c2fde99e 100644 --- a/src/Propellor/Spin.hs +++ b/src/Propellor/Spin.hs @@ -100,15 +100,19 @@ getSshTarget target hst | otherwise = return target where go (Left e) = useip (show e) - go (Right hostentry) = maybe (useip $ "none matching " ++ fromMaybe "missing" configip) (const $ return target) - =<< firstM matchingtarget (BSD.hostAddresses hostentry) + go (Right hostentry) = ifM (anyM matchingtarget (BSD.hostAddresses hostentry)) + ( return target + , do + ips <- mapM inet_ntoa (BSD.hostAddresses hostentry) + useip ("DNS " ++ show ips ++ " /= configured " ++ show (maybeToList configip)) + ) matchingtarget a = (==) target <$> inet_ntoa a useip why = case configip of Nothing -> return target Just ip -> do - warningMessage $ "DNS seems out of date for " ++ target ++ "(" ++ why ++ "); using IP address from configuration instead." + warningMessage $ "DNS seems out of date for " ++ target ++ " (" ++ why ++ "); using IP address from configuration instead." return ip configip = case mapMaybe getIPAddr (S.toList (_dns (hostInfo hst))) of -- cgit v1.2.3