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

prep

This commit is contained in:
Joey Hess 2015-01-04 19:51:42 -04:00
parent 09e9b793dd
commit 66e42a2a5b
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debian/changelog vendored
View File

@ -1,11 +1,11 @@
propellor (1.3.1) UNRELEASED; urgency=medium propellor (1.3.1) unstable; urgency=medium
* Fix bug that prevented deploying ssh host keys when the file for the * Fix bug that prevented deploying ssh host keys when the file for the
key didn't already exist. key didn't already exist.
* DNS records for hosts with known ssh public keys now automatically * DNS records for hosts with known ssh public keys now automatically
include SSHFP records. include SSHFP records.
-- Joey Hess <id@joeyh.name> Sun, 04 Jan 2015 18:19:30 -0400 -- Joey Hess <id@joeyh.name> Sun, 04 Jan 2015 19:51:34 -0400
propellor (1.3.0) unstable; urgency=medium propellor (1.3.0) unstable; urgency=medium

2
propellor.cabal
View File

@ -1,5 +1,5 @@
Name: propellor Name: propellor
Version: 1.3.0 Version: 1.3.1
Cabal-Version: >= 1.6 Cabal-Version: >= 1.6
License: BSD3 License: BSD3
Maintainer: Joey Hess <id@joeyh.name> Maintainer: Joey Hess <id@joeyh.name>

1
src/Propellor/Property/Dns.hs
View File

@ -81,7 +81,6 @@ setupPrimary zonefile mknamedconffile hosts domain soa rs =
(addNamedConf conf) (addNamedConf conf)
satisfy = do satisfy = do
sshfps <- concat <$> mapM genSSHFP indomain sshfps <- concat <$> mapM genSSHFP indomain
liftIO $ print sshfps
let zone = partialzone let zone = partialzone
{ zHosts = zHosts partialzone ++ rs ++ sshfps } { zHosts = zHosts partialzone ++ rs ++ sshfps }
ifM (liftIO $ needupdate zone) ifM (liftIO $ needupdate zone)