diff --git a/src/App/AcceptedRRTypes.purs b/src/App/AcceptedRRTypes.purs
new file mode 100644
index 0000000..9ac8aeb
--- /dev/null
+++ b/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