Cosmetic changes (fix -> save, X -> remove) + comments.

This commit is contained in:
Philippe Pittoli 2023-07-12 02:40:30 +02:00
parent 437722c323
commit 15012f3824
2 changed files with 3 additions and 4 deletions

View File

@ -2,8 +2,7 @@
-- |
-- | This interface allows to:
-- | - display all resource records of a zone
-- | - * DONE: NS, A, AAAA, CNAME, TXT, MX, SRV
-- | - * TODO: SOA
-- | - * DONE: SOA, NS, A, AAAA, CNAME, TXT, MX, SRV
-- | - add new resource records
-- | - TODO: modify resource records
-- | - remove resource records

View File

@ -256,7 +256,7 @@ btn_change action1 action2 modified validity
[ HP.disabled (not modified)
, btn_change_action validity
, HP.classes $ btn_classes validity
] [ HH.text "fix" ]
] [ HH.text "save" ]
where
btn_change_action = case _ of
@ -268,7 +268,7 @@ btn_delete action
= HH.button
[ HE.onClick action
, HP.classes [ HH.ClassName "button is-small is-danger" ]
] [ HH.text "X" ]
] [ HH.text "remove" ]
btn_add :: forall w i. i -> i -> Boolean -> HH.HTML w i