Forgot a value in the ResourceRecord type.

2023-07-10 03:59:15 +02:00 · 2023-07-10 03:59:15 +02:00 · faf7129989
commit faf7129989
parent b89eae5a82
1 changed files with 4 additions and 2 deletions
--- a/src/App/ResourceRecord.purs
+++ b/src/App/ResourceRecord.purs
@ -7,7 +7,8 @@ import Data.Codec.Argonaut as CA
 import Data.Codec.Argonaut.Record as CAR

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