diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -26,3 +26,7 @@
 * Rename typod field name `commant_modified_at` to `comment_modified_at`
 * Wrap `rrset_name` and `zone_name` with new `CIText` wrappers for limited case-sensitivity
 * Have `Ord` instances of `Zone` and `RRSet` correctly respect limited case-sensitivity
+
+## 0.4.0 -- 2022-03-15
+
+* Wrap `rrset_ttl` with Maybe to correctly allow deleting records
diff --git a/PowerDNS/API/Zones.hs b/PowerDNS/API/Zones.hs
--- a/PowerDNS/API/Zones.hs
+++ b/PowerDNS/API/Zones.hs
@@ -225,7 +225,7 @@
 data RRSet = RRSet
   { rrset_name :: CIText
   , rrset_type :: RecordType
-  , rrset_ttl :: Word32
+  , rrset_ttl :: Maybe Word32
   , rrset_changetype :: Maybe ChangeType
   , rrset_records :: Maybe [Record]
   , rrset_comments :: Maybe [Comment]
diff --git a/powerdns.cabal b/powerdns.cabal
--- a/powerdns.cabal
+++ b/powerdns.cabal
@@ -1,6 +1,6 @@
 cabal-version:      >=1.10
 name:               powerdns
-version:            0.3.0
+version:            0.4.0
 license:            BSD3
 license-file:       LICENSE
 copyright:          (c) 2021 Victor Nawothnig
diff --git a/spec/Spec.hs b/spec/Spec.hs
--- a/spec/Spec.hs
+++ b/spec/Spec.hs
@@ -20,7 +20,7 @@
 
 {-# NOINLINE baseUrl #-}
 baseUrl :: BaseUrl
-baseUrl = unsafePerformIO (parseBaseUrl "localhost:8081")
+baseUrl = unsafePerformIO (parseBaseUrl "pdns:8081")
 
 envNoAuth :: ClientEnv
 envNoAuth = mkClientEnv mgr baseUrl
@@ -49,22 +49,22 @@
 otherSpecs :: TestTree
 otherSpecs = testGroup "Case-sensitivity"
     [ testCase "RRSet does case-insensitive compare on ASCII codepoints" $
-        assertEqual "" (compare (RRSet "Foo." A 0 Nothing Nothing Nothing)
-                                (RRSet "foo." A 0 Nothing Nothing Nothing))
+        assertEqual "" (compare (RRSet "Foo." A (Just 0) Nothing Nothing Nothing)
+                                (RRSet "foo." A (Just 0) Nothing Nothing Nothing))
                        EQ
     , testCase "RRSet does case-insensitive eq on ASCII codepoints" $
-        assertEqual "" (RRSet "Foo." A 0 Nothing Nothing Nothing)
-                       (RRSet "foo." A 0 Nothing Nothing Nothing)
+        assertEqual "" (RRSet "Foo." A (Just 0) Nothing Nothing Nothing)
+                       (RRSet "foo." A (Just 0) Nothing Nothing Nothing)
 
     , testCase "RRSet does case-sensitive compare on non-ASCII codepoints" $
-       assertEqual "" (compare (RRSet "\335." A 0 Nothing Nothing Nothing)
-                               (RRSet "\375." A 0 Nothing Nothing Nothing))
+       assertEqual "" (compare (RRSet "\335." A (Just 0) Nothing Nothing Nothing)
+                               (RRSet "\375." A (Just 0) Nothing Nothing Nothing))
                       LT
 
 
     , testCase "RRSet does case-sensitive eq on non-ASCII codepoints" $
-       assertBool "" ((RRSet "\335." A 0 Nothing Nothing Nothing) /=
-                      (RRSet "\375." A 0 Nothing Nothing Nothing))
+       assertBool "" ((RRSet "\335." A (Just 0) Nothing Nothing Nothing) /=
+                      (RRSet "\375." A (Just 0) Nothing Nothing Nothing))
 
     , testCase "Zone does case-insensitive comparison on ASCII codepoints" $
         assertEqual "" (empty { zone_name = Just "Foo." })
@@ -95,8 +95,11 @@
     runOk (getZone "localhost" zoneId (Just False))
 
     step "Add record to zone"
-    runOk (updateZone "localhost" zoneId patch)
+    runOk (updateZone "localhost" zoneId (patch added))
 
+    step "Delete a record"
+    runOk (updateZone "localhost" zoneId (patch deleted))
+
     step "Delete zone"
     runOk (deleteZone "localhost" zoneId)
 
@@ -114,19 +117,27 @@
 
     init = [ RRSet { rrset_name = "magic.test.space."
                    , rrset_type = A
-                   , rrset_ttl = 86003
+                   , rrset_ttl = Just 86003
                    , rrset_changetype = Nothing
                    , rrset_records = Just [Record "127.0.0.1" False]
                    , rrset_comments = Nothing
                    }
            ]
 
-    patch = empty { zone_type = Just "zone"
-                  , zone_rrsets = Just added
-                  }
+    patch what = empty { zone_type = Just "zone"
+                       , zone_rrsets = Just what
+                       }
+    deleted = [ RRSet { rrset_name = "foo.test.space."
+                      , rrset_type = AAAA
+                      , rrset_ttl = Nothing
+                      , rrset_changetype = Just Delete
+                      , rrset_records = Just []
+                      , rrset_comments = Nothing
+                      }
+            ]
     added = [ RRSet { rrset_name = "foo.test.space."
                     , rrset_type = AAAA
-                    , rrset_ttl = 1234
+                    , rrset_ttl = Nothing
                     , rrset_changetype = Nothing
                     , rrset_records = Just [Record "::1" False]
                     , rrset_comments = Nothing