Cosmetic changes (fix -> save, X -> remove) + comments.
This commit is contained in:
parent
437722c323
commit
15012f3824
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user