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

RRDeleted message.

Browse Source
This commit is contained in:
Philippe Pittoli 2023-07-10 03:36:40 +02:00
parent 302b18c9ff
commit 1870c5df50
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -177,6 +177,11 @@ type DomainAdded = { domain :: String }
codecDomainAdded ∷ CA.JsonCodec DomainAdded codecDomainAdded ∷ CA.JsonCodec DomainAdded
codecDomainAdded = CA.object "DomainAdded" (CAR.record { domain: CA.string }) codecDomainAdded = CA.object "DomainAdded" (CAR.record { domain: CA.string })
{- 18 -}
type RRDeleted = { rrid :: Int }
codecRRDeleted ∷ CA.JsonCodec RRDeleted
codecRRDeleted = CA.object "RRDeleted" (CAR.record { rrid: CA.int })
{- 50 -} {- 50 -}
type UnknownUser = { } type UnknownUser = { }
codecUnknownUser ∷ CA.JsonCodec UnknownUser codecUnknownUser ∷ CA.JsonCodec UnknownUser
@ -221,6 +226,7 @@ data AnswerMessage
| MkAcceptedDomains AcceptedDomains -- 15 | MkAcceptedDomains AcceptedDomains -- 15
| MkLogged Logged -- 16 | MkLogged Logged -- 16
| MkDomainAdded DomainAdded -- 17 | MkDomainAdded DomainAdded -- 17
| MkRRDeleted RRDeleted -- 18
| MkUnknownUser UnknownUser -- 50 | MkUnknownUser UnknownUser -- 50
| MkNoOwnership NoOwnership -- 51 | MkNoOwnership NoOwnership -- 51
@ -267,6 +273,7 @@ decode number string
15 -> error_management codecAcceptedDomains MkAcceptedDomains 15 -> error_management codecAcceptedDomains MkAcceptedDomains
16 -> error_management codecLogged MkLogged 16 -> error_management codecLogged MkLogged
17 -> error_management codecDomainAdded MkDomainAdded 17 -> error_management codecDomainAdded MkDomainAdded
18 -> error_management codecRRDeleted MkRRDeleted
50 -> error_management codecUnknownUser MkUnknownUser 50 -> error_management codecUnknownUser MkUnknownUser
51 -> error_management codecNoOwnership MkNoOwnership 51 -> error_management codecNoOwnership MkNoOwnership
_ -> Left UnknownNumber _ -> Left UnknownNumber