diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-01-04 19:52:09 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-04 19:52:09 -0400 |
| commit | e22002a7a99ceaaf193a6aa83d3c03e256d79f52 (patch) | |
| tree | 8a6460e3da5abfd0109d40e518fd1a8f233dc35b /src/Propellor/Info.hs | |
| parent | 2de60a902794669b40fae8c7135f989ccca2f8d5 (diff) | |
| parent | 0794dfbd7c6f854c3e517486be0722e4cf61db34 (diff) | |
Merge branch 'joeyconfig'
Conflicts:
privdata.joey/privdata.gpg
Diffstat (limited to 'src/Propellor/Info.hs')
| -rw-r--r-- | src/Propellor/Info.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Propellor/Info.hs b/src/Propellor/Info.hs index b7ca81b5..ccb27cf3 100644 --- a/src/Propellor/Info.hs +++ b/src/Propellor/Info.hs @@ -64,6 +64,7 @@ addDNS r = pureInfoProperty (rdesc r) $ mempty { _dns = S.singleton r } rdesc (NS d) = unwords ["NS", ddesc d] rdesc (TXT s) = unwords ["TXT", s] rdesc (SRV x y z d) = unwords ["SRV", show x, show y, show z, ddesc d] + rdesc (SSHFP x y s) = unwords ["SSHFP", show x, show y, s] rdesc (INCLUDE f) = unwords ["$INCLUDE", f] ddesc (AbsDomain domain) = domain |