diff --git a/src/App/Messages/DNSManagerDaemon.purs b/src/App/Messages/DNSManagerDaemon.purs
index bf1b801..81e90db 100644
--- a/src/App/Messages/DNSManagerDaemon.purs
+++ b/src/App/Messages/DNSManagerDaemon.purs
@@ -45,15 +45,15 @@ codecNewDomain ∷ CA.JsonCodec NewDomain
 codecNewDomain = CA.object "NewDomain" (CAR.record { domain: CA.string })
 
 {- 10  -}
+type DeleteDomain = { domain :: String }
+codecDeleteDomain ∷ CA.JsonCodec DeleteDomain
+codecDeleteDomain = CA.object "DeleteDomain" (CAR.record { domain: CA.string })
+
+{- 11  -}
 type AddOrUpdateZone = { zone :: DNSZone.DNSZone }
 codecAddOrUpdateZone ∷ CA.JsonCodec AddOrUpdateZone
 codecAddOrUpdateZone = CA.object "AddOrUpdateZone" (CAR.record { zone: DNSZone.codec })
 
-{- 11  -}
-type DeleteZone = { domain :: String }
-codecDeleteZone ∷ CA.JsonCodec DeleteZone
-codecDeleteZone = CA.object "DeleteZone" (CAR.record { domain: CA.string })
-
 {- 12  -}
 type GetZone = { domain :: String }
 codecGetZone ∷ CA.JsonCodec GetZone
@@ -153,8 +153,8 @@ data RequestMessage
   = MkLogin           Login            -- 0
   | MkMaintenance     Maintenance      -- 7
   | MkNewDomain       NewDomain        -- 9
-  | MkAddOrUpdateZone AddOrUpdateZone  -- 10
-  | MkDeleteZone      DeleteZone       -- 11
+  | MkDeleteDomain    DeleteDomain     -- 10
+  | MkAddOrUpdateZone AddOrUpdateZone  -- 11
   | MkGetZone         GetZone          -- 12
   | MkUserDomains     UserDomains      -- 13
   | MkAddRR           AddRR            -- 14
@@ -182,8 +182,8 @@ encode m = case m of
     (MkLogin           request) -> get_tuple 0  codecLogin request
     (MkMaintenance     request) -> get_tuple 7  codecMaintenance request
     (MkNewDomain       request) -> get_tuple 9  codecNewDomain request
-    (MkAddOrUpdateZone request) -> get_tuple 10 codecAddOrUpdateZone request
-    (MkDeleteZone      request) -> get_tuple 11 codecDeleteZone request
+    (MkDeleteDomain    request) -> get_tuple 10 codecDeleteDomain request
+    (MkAddOrUpdateZone request) -> get_tuple 11 codecAddOrUpdateZone request
     (MkGetZone         request) -> get_tuple 12 codecGetZone request
     (MkUserDomains     request) -> get_tuple 13 codecUserDomains request
     (MkAddRR           request) -> get_tuple 14 codecAddRR request