summaryrefslogtreecommitdiff
path: root/src/Propellor/Info.hs
diff options
context:
space:
mode:
authorJoey Hess2015-10-16 14:23:14 -0400
committerJoey Hess2015-10-16 14:23:14 -0400
commit4b848fedbf2d3a7b7ba94abd2b0ed8526df2fac7 (patch)
tree8e8d067bebb2e82e0e8354ff871791f2e1c7114f /src/Propellor/Info.hs
parent51634a1bfc091b0c2e005e58266771dab0710ffe (diff)
parente66b62f40bcb29ca62c905dabe87cc6e91a6bccd (diff)
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/Info.hs')
-rw-r--r--src/Propellor/Info.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Propellor/Info.hs b/src/Propellor/Info.hs
index fed62ff9..889f8439 100644
--- a/src/Propellor/Info.hs
+++ b/src/Propellor/Info.hs
@@ -101,3 +101,6 @@ getAddresses = mapMaybe getIPAddr . S.toList . fromDnsInfo . getInfo
hostAddresses :: HostName -> [Host] -> [IPAddr]
hostAddresses hn hosts = maybe [] (getAddresses . hostInfo) (findHost hosts hn)
+
+addHostInfo ::IsInfo v => Host -> v -> Host
+addHostInfo h v = h { hostInfo = addInfo (hostInfo h) v }