summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2018-07-11 13:45:30 -0400
committerJoey Hess2018-07-11 13:45:30 -0400
commitdce951917274b5af0d342d895346f26003e3749c (patch)
treec1b22fe73d30bb5d00c0b451b0e8401e97971e19 /src/Propellor
parent317df7c36c80d2ac1f817aad72cd1b5105458fef (diff)
propellor spin
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Spin.hs8
1 files changed, 6 insertions, 2 deletions
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