From dce951917274b5af0d342d895346f26003e3749c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 11 Jul 2018 13:45:30 -0400 Subject: propellor spin --- src/Propellor/Spin.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/Propellor') diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs index 4a945e82..d3d18b9e 100644 --- a/src/Propellor/Spin.hs +++ b/src/Propellor/Spin.hs @@ -144,8 +144,12 @@ spin' mprivdata relay target hst = do -- the host in it at all, use one of the Host's IPs instead. getSshTarget :: HostName -> Host -> IO String getSshTarget target hst - | null configips = return target - | otherwise = go =<< tryIO (dnslookup target) + | null configips = do + print "no configured IPs" + return target + | otherwise = do + print configips + go =<< tryIO (dnslookup target) where go (Left e) = useip (show e) go (Right addrinfos) = do -- cgit v1.2.3