minor
parent
8310488e82
commit
bbc258bc58
|
@ -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)"
|
||||
|
|
Loading…
Reference in New Issue