diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs
index 3ff1ec2..9685a48 100644
--- a/src/Propellor/Spin.hs
+++ b/src/Propellor/Spin.hs
@@ -102,6 +102,7 @@ getSshTarget target hst
 	go (Left e) = useip (show e)
 	go (Right addrinfos) = do
 		configaddrinfos <- catMaybes <$> mapM iptoaddr configips
+		print (configips, configaddrinfos, map addrAddress addrinfos)
 		if any (`elem` configaddrinfos) (map addrAddress addrinfos)
 			then return target
 			else useip ("DNS lookup did not return any of the expected addresses " ++ show configips)