summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Dns.hs
diff options
context:
space:
mode:
authorJoey Hess2015-10-16 19:50:37 -0400
committerJoey Hess2015-10-16 19:50:37 -0400
commitfe052464493571ac26d825823c8c6e95ddb096e2 (patch)
treec33ac0f27a3248db58c197b16a103009f554bf15 /src/Propellor/Property/Dns.hs
parent06f4258f8174302a825a893b3407df9cff15c577 (diff)
parentf18304181f59f737f8034f6a5aa69b89829f1785 (diff)
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/Property/Dns.hs')
-rw-r--r--src/Propellor/Property/Dns.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/Dns.hs b/src/Propellor/Property/Dns.hs
index 963b82f6..6646582b 100644
--- a/src/Propellor/Property/Dns.hs
+++ b/src/Propellor/Property/Dns.hs
@@ -524,7 +524,7 @@ getNamedConf = asks $ fromNamedConfMap . getInfo . hostInfo
genSSHFP :: Domain -> Host -> Propellor [(BindDomain, Record)]
genSSHFP domain h = concatMap mk . concat <$> (gen =<< get)
where
- get = fromHost [h] hostname Ssh.getPubKey
+ get = fromHost [h] hostname Ssh.getHostPubKey
gen = liftIO . mapM genSSHFP' . M.elems . fromMaybe M.empty
mk r = mapMaybe (\d -> if inDomain domain d then Just (d, r) else Nothing)
(AbsDomain hostname : cnames)