summaryrefslogtreecommitdiff
path: root/src/Propellor/Info.hs
diff options
context:
space:
mode:
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 }