summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2015-01-01 16:18:36 -0400
committerJoey Hess2015-01-01 16:18:36 -0400
commitf89aeaa0e8858109d44fdaa5911f5fecacf7ce6b (patch)
tree2bffcec4d7e2c11341a370bde74d9fc342f149e7 /src/Propellor
parent556ed9d0b1c56661c4e35e1f0f3090475669f84c (diff)
propellor spin
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Spin.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs
index 42f7bf7b..a6744bf4 100644
--- a/src/Propellor/Spin.hs
+++ b/src/Propellor/Spin.hs
@@ -101,7 +101,9 @@ getSshTarget target hst
where
go (Left e) = useip (show e)
go (Right hostentry) = ifM (anyM matchingconfig (BSD.hostAddresses hostentry))
- ( return target
+ ( do
+ print "MATCHING IP"
+ return target
, do
ips <- mapM inet_ntoa (BSD.hostAddresses hostentry)
useip ("DNS " ++ show ips ++ " vs configured " ++ show configips)