diff --git a/src/App/Page/Zone.purs b/src/App/Page/Zone.purs
index c8d9a57..ac2f8f1 100644
--- a/src/App/Page/Zone.purs
+++ b/src/App/Page/Zone.purs
@@ -12,7 +12,7 @@
 -- | TODO: move all serialization code to a single module.
 module App.Page.Zone where
 
-import Prelude (class Show, Unit, bind, comparing, discard, map, pure, show, unit, void, (#), ($), (-), (/=), (<<<), (<>), (=<<), (==), (>))
+import Prelude (class Show, Unit, bind, comparing, discard, map, pure, show, unit, void, (#), ($), (/=), (<<<), (<>), (=<<), (==))
 
 import Data.Generic.Rep (class Generic)
 import Data.Show.Generic (genericShow)
@@ -22,15 +22,9 @@ import Web.HTML (window) as HTML
 import Web.HTML.Window (sessionStorage) as Window
 import Web.Storage.Storage as Storage
 
-import Utils (id, attach_id, remove_id)
-
-import App.Validation.Email as Email
-import App.Type.CAA as CAA
-
 import Data.Eq (class Eq)
 import Data.Array as A
 import Data.Int (fromString)
-import Data.Tuple (Tuple)
 import Data.ArrayBuffer.Types (ArrayBuffer)
 import Data.Array.NonEmpty as NonEmpty
 import Data.Either (Either(..))
@@ -40,7 +34,6 @@ import Data.Maybe (Maybe(..), fromMaybe, maybe)
 import Effect.Aff.Class (class MonadAff)
 import Halogen as H
 import Halogen.HTML as HH
-import Halogen.HTML.Properties as HP
 
 import App.Templates.Table as Table
 import Web as Web
@@ -48,15 +41,11 @@ import CSSClasses as C
 
 import App.Text.Explanations as Explanations
 
-import App.Type.RRId
+import App.Type.RRId (RRId)
 import App.Type.Field as Field
-import App.Type.RRModal
+import App.Type.RRModal (RRModal(..))
 import App.Type.AcceptedRRTypes (AcceptedRRTypes(..))
-import App.Type.ResourceRecord (ResourceRecord
-                               , emptyRR, mechanism_types, modifier_types, qualifier_types
-                               , qualifiers, show_qualifier, to_mechanism, to_modifier)
-import App.Type.ResourceRecord (Mechanism, Modifier, Qualifier(..), SRVProtocol(..)
-                               , srv_protocols, srv_protocols_txt) as RR
+import App.Type.ResourceRecord (ResourceRecord)
 import App.Type.DKIM as DKIM
 import App.Type.DMARC as DMARC
 
@@ -64,7 +53,7 @@ import App.Type.LogMessage (LogMessage(..))
 import App.Message.DNSManagerDaemon as DNSManager
 import App.Validation.DNS as Validation
 
-import App.Type.RRForm
+import App.Type.RRForm (RRForm, RRUpdateValue(..), default_caa, default_rr, mkEmptyRRForm, update_form)
 
 -- | `App.Page.Zone` can send messages through websocket interface
 -- | connected to dnsmanagerd. See `App.WS`.