diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-19 03:13:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-19 03:13:42 -0400 |
| commit | 557ed14301741a954985bc5bcf8c4041caefd7b5 (patch) | |
| tree | 0ddb267fbc0fc7fa9cf2637c3d6929716fe7da08 | |
| parent | d9706c33484069eb98508d9d73998795e0d742f7 (diff) | |
format
| -rw-r--r-- | Propellor/Property/Dns.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Propellor/Property/Dns.hs b/Propellor/Property/Dns.hs index 5c57fcbc..9e12763c 100644 --- a/Propellor/Property/Dns.hs +++ b/Propellor/Property/Dns.hs @@ -194,10 +194,9 @@ rValue (TXT s) = [q] ++ filter (/= q) s ++ [q] where q = '"' --- | Adjusts the serial number of the zone to --- --- * Always be larger than the serial number in the Zone record. --- * Always be larger than the passed SerialNumber +-- | Adjusts the serial number of the zone to always be larger +-- than the serial number in the Zone record, +-- and always be larger than the passed SerialNumber. nextSerialNumber :: Zone -> SerialNumber -> Zone nextSerialNumber z serial = adjustSerialNumber z $ \sn -> succ $ max sn serial |