From f89aeaa0e8858109d44fdaa5911f5fecacf7ce6b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 1 Jan 2015 16:18:36 -0400 Subject: propellor spin --- src/Propellor/Spin.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Propellor/Spin.hs') 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) -- cgit v1.2.3