From faf7129989d675ba42b113e418db3df21264212f Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Mon, 10 Jul 2023 03:59:15 +0200
Subject: [PATCH] Forgot a value in the ResourceRecord type.

---
 src/App/ResourceRecord.purs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/App/ResourceRecord.purs b/src/App/ResourceRecord.purs
index 8060ea1..96d3c2c 100644
--- 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