cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2015-01-01 16:18:36 -04:00
parent 556ed9d0b1
commit f89aeaa0e8
Failed to extract signature
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/Spin.hs
View File

@ -101,7 +101,9 @@ getSshTarget target hst
where where
go (Left e) = useip (show e) go (Left e) = useip (show e)
go (Right hostentry) = ifM (anyM matchingconfig (BSD.hostAddresses hostentry)) go (Right hostentry) = ifM (anyM matchingconfig (BSD.hostAddresses hostentry))
( return target ( do
print "MATCHING IP"
return target
, do , do
ips <- mapM inet_ntoa (BSD.hostAddresses hostentry) ips <- mapM inet_ntoa (BSD.hostAddresses hostentry)
useip ("DNS " ++ show ips ++ " vs configured " ++ show configips) useip ("DNS " ++ show ips ++ " vs configured " ++ show configips)