karchnu
/
halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

minor

beta
Philippe Pittoli 2024-01-23 02:51:22 +01:00
parent 8310488e82
commit bbc258bc58
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/App/ZoneInterface.purs
View File

@ -11,10 +11,14 @@
-- | WIP: adding a new record should be through a modal presenting a specific form for each RR. -- | 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. -- | This allows to present relevant information, such as use cases.
-- | Also, errors could be shown and further explained with more available screen space. -- | 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: 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. -- | TODO: move all serialization code to a single module.
module App.ZoneInterface where module App.ZoneInterface where
import Prelude (Unit, unit, void import Prelude (Unit, unit, void
@ -711,9 +715,6 @@ handleQuery = case _ of
_, _ -> Left $ "TODO: cannot add '" <> new_rr.rrtype <> "' resource records at the moment." _, _ -> Left $ "TODO: cannot add '" <> new_rr.rrtype <> "' resource records at the moment."
-- Rendering -- 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 :: forall (w :: Type). Maybe (SOARR ()) -> HH.HTML w Action
render_soa Nothing = Bulma.box [ HH.text "SOA not loaded, yet" ] 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)" render_soa (Just soa) = Bulma.box [ Bulma.zone_rr_title "Start Of Authority (SOA)"