karchnu
/
halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor DNSManager API change.

beta
Philippe Pittoli 2023-06-27 13:11:59 +02:00
parent b20504dfb9
commit ad7ee31806
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/App/Messages/DNSManagerDaemon.purs
View File

@ -45,15 +45,15 @@ codecNewDomain ∷ CA.JsonCodec NewDomain
codecNewDomain = CA.object "NewDomain" (CAR.record { domain: CA.string }) codecNewDomain = CA.object "NewDomain" (CAR.record { domain: CA.string })
{- 10 -} {- 10 -}
type DeleteDomain = { domain :: String }
codecDeleteDomain ∷ CA.JsonCodec DeleteDomain
codecDeleteDomain = CA.object "DeleteDomain" (CAR.record { domain: CA.string })
{- 11 -}
type AddOrUpdateZone = { zone :: DNSZone.DNSZone } type AddOrUpdateZone = { zone :: DNSZone.DNSZone }
codecAddOrUpdateZone ∷ CA.JsonCodec AddOrUpdateZone codecAddOrUpdateZone ∷ CA.JsonCodec AddOrUpdateZone
codecAddOrUpdateZone = CA.object "AddOrUpdateZone" (CAR.record { zone: DNSZone.codec }) 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 -} {- 12 -}
type GetZone = { domain :: String } type GetZone = { domain :: String }
codecGetZone ∷ CA.JsonCodec GetZone codecGetZone ∷ CA.JsonCodec GetZone
@ -153,8 +153,8 @@ data RequestMessage
= MkLogin Login -- 0 = MkLogin Login -- 0
| MkMaintenance Maintenance -- 7 | MkMaintenance Maintenance -- 7
| MkNewDomain NewDomain -- 9 | MkNewDomain NewDomain -- 9
| MkAddOrUpdateZone AddOrUpdateZone -- 10 | MkDeleteDomain DeleteDomain -- 10
| MkDeleteZone DeleteZone -- 11 | MkAddOrUpdateZone AddOrUpdateZone -- 11
| MkGetZone GetZone -- 12 | MkGetZone GetZone -- 12
| MkUserDomains UserDomains -- 13 | MkUserDomains UserDomains -- 13
| MkAddRR AddRR -- 14 | MkAddRR AddRR -- 14
@ -182,8 +182,8 @@ encode m = case m of
(MkLogin request) -> get_tuple 0 codecLogin request (MkLogin request) -> get_tuple 0 codecLogin request
(MkMaintenance request) -> get_tuple 7 codecMaintenance request (MkMaintenance request) -> get_tuple 7 codecMaintenance request
(MkNewDomain request) -> get_tuple 9 codecNewDomain request (MkNewDomain request) -> get_tuple 9 codecNewDomain request
(MkAddOrUpdateZone request) -> get_tuple 10 codecAddOrUpdateZone request (MkDeleteDomain request) -> get_tuple 10 codecDeleteDomain request
(MkDeleteZone request) -> get_tuple 11 codecDeleteZone request (MkAddOrUpdateZone request) -> get_tuple 11 codecAddOrUpdateZone request
(MkGetZone request) -> get_tuple 12 codecGetZone request (MkGetZone request) -> get_tuple 12 codecGetZone request
(MkUserDomains request) -> get_tuple 13 codecUserDomains request (MkUserDomains request) -> get_tuple 13 codecUserDomains request
(MkAddRR request) -> get_tuple 14 codecAddRR request (MkAddRR request) -> get_tuple 14 codecAddRR request