format
This commit is contained in:
parent
d9706c3348
commit
557ed14301
|
@ -194,10 +194,9 @@ rValue (TXT s) = [q] ++ filter (/= q) s ++ [q]
|
||||||
where
|
where
|
||||||
q = '"'
|
q = '"'
|
||||||
|
|
||||||
-- | Adjusts the serial number of the zone to
|
-- | Adjusts the serial number of the zone to always be larger
|
||||||
--
|
-- than the serial number in the Zone record,
|
||||||
-- * Always be larger than the serial number in the Zone record.
|
-- and always be larger than the passed SerialNumber.
|
||||||
-- * Always be larger than the passed SerialNumber
|
|
||||||
nextSerialNumber :: Zone -> SerialNumber -> Zone
|
nextSerialNumber :: Zone -> SerialNumber -> Zone
|
||||||
nextSerialNumber z serial = adjustSerialNumber z $ \sn -> succ $ max sn serial
|
nextSerialNumber z serial = adjustSerialNumber z $ \sn -> succ $ max sn serial
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue