From bbc258bc5850ec47c220b21703127cf7e0c45321 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Tue, 23 Jan 2024 02:51:22 +0100 Subject: [PATCH] minor --- src/App/ZoneInterface.purs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs index f4ad031..ea78819 100644 --- a/src/App/ZoneInterface.purs +++ b/src/App/ZoneInterface.purs @@ -11,10 +11,14 @@ -- | WIP: adding a new record should be through a modal presenting a specific form for each RR. -- | This allows to present relevant information, such as use cases. -- | Also, errors could be shown and further explained with more available screen space. +-- | -- | TODO: do not allow for the modification of read-only resource records. -- | +-- | TODO: new RR modal: don't allow to click on the "add" button before the entry is validated. +-- | +-- | TODO: existing RR: don't allow to click on the "save" button before the entry is validated. +-- | -- | TODO: move all serialization code to a single module. - module App.ZoneInterface where import Prelude (Unit, unit, void @@ -711,9 +715,6 @@ handleQuery = case _ of _, _ -> Left $ "TODO: cannot add '" <> new_rr.rrtype <> "' resource records at the moment." -- Rendering -class_title_size :: Array (HH.ClassName) -class_title_size = [HH.ClassName "is-3"] - render_soa :: forall (w :: Type). Maybe (SOARR ()) -> HH.HTML w Action render_soa Nothing = Bulma.box [ HH.text "SOA not loaded, yet" ] render_soa (Just soa) = Bulma.box [ Bulma.zone_rr_title "Start Of Authority (SOA)"