RRDeleted response message.

src/responses/zone.cr

@@ -63,5 +63,12 @@ class DNSManager::Response
 		end
 	end
 	DNSManager.responses << DomainAdded
+
+	IPC::JSON.message RRDeleted, 18 do
+		property rrid : UInt32
+		def initialize(@rrid)
+		end
+	end
+	DNSManager.responses << RRDeleted
 end
 

src/storage.cr

@@ -248,7 +248,7 @@ class DNSManager::Storage
 		# Update the zone.
 		zones_by_domain.update_or_create zone.domain, zone
 
-		Response::Success.new
+		Response::RRDeleted.new rrid
 	rescue e
 		Baguette::Log.error "trying to remove a resource record in domain #{domain}: #{e}"
 		Response::Error.new "error while removing a resource record in domain #{domain}"