summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-04-19 03:13:42 -0400
committerJoey Hess2014-04-19 03:13:42 -0400
commit557ed14301741a954985bc5bcf8c4041caefd7b5 (patch)
tree0ddb267fbc0fc7fa9cf2637c3d6929716fe7da08
parentd9706c33484069eb98508d9d73998795e0d742f7 (diff)
format
-rw-r--r--Propellor/Property/Dns.hs7
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