AcceptedRRTypes.

src/App/AcceptedRRTypes.purs

@@ -0,0 +1,22 @@
+-- | The application accepts to add a few new entry types in a DNS zone.
+-- | Each resource record has a specific form, with dedicated inputs and
+-- | dedicated validation.
+module App.AcceptedRRTypes where
+
+import Prelude
+import Data.Generic.Rep (class Generic)
+import Data.Show.Generic (genericShow)
+
+data AcceptedRRTypes
+  = A
+  | AAAA
+  | TXT
+  | CNAME
+  | NS
+  | MX
+  | SRV
+
+derive instance genericMyADT :: Generic AcceptedRRTypes _
+
+instance showMyADT :: Show AcceptedRRTypes where
+  show = genericShow