Baguette
/
dnsmanager-webclient
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

CAA: fix modal.

caa
Philippe PITTOLI 2024-06-08 04:08:25 +02:00
parent da64f3d2a6
commit 0077da993e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/App/Page/Zone.purs
View File

@ -466,11 +466,12 @@ render state
, Bulma.hr
, Bulma.box_input ("flagCAA") "Flag" ""
(updateForm Field_CAA_flag)
state._currentRR.target
(show (fromMaybe default_caa state._currentRR.caa).flag)
, Bulma.selection_field'' "tagCAA" "Tag" CAA_tag (A.zip CAA.tags_txt CAA.tags_raw)
CAA.Issue
(Just (fromMaybe default_caa state._currentRR.caa).tag)
, Bulma.box_input "valueCAA" "Value" "" (updateForm Field_CAA_value) state._currentRR.name
, Bulma.box_input "valueCAA" "Value" "" (updateForm Field_CAA_value)
(fromMaybe default_caa state._currentRR.caa).value
]
modal_content_srv :: Array (HH.HTML w Action)
modal_content_srv =