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

Forgot a value in the ResourceRecord type.

Browse Source
This commit is contained in:
Philippe Pittoli 2023-07-10 03:59:15 +02:00
parent b89eae5a82
commit faf7129989
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/App/ResourceRecord.purs
View File

@ -7,7 +7,8 @@ import Data.Codec.Argonaut as CA
import Data.Codec.Argonaut.Record as CAR import Data.Codec.Argonaut.Record as CAR
type ResourceRecord type ResourceRecord
= { rrid :: Int = { rrtype :: String
, rrid :: Int
, name :: String , name :: String
, ttl :: Int , ttl :: Int
, target :: String , target :: String
@ -34,7 +35,8 @@ type ResourceRecord
codec :: JsonCodec ResourceRecord codec :: JsonCodec ResourceRecord
codec = CA.object "ResourceRecord" codec = CA.object "ResourceRecord"
(CAR.record (CAR.record
{ rrid: CA.int { rrtype: CA.string
, rrid: CA.int
, name: CA.string , name: CA.string
, ttl: CA.int , ttl: CA.int
, target: CA.string , target: CA.string