UpdateLocalForm: simpler code, could replace dozens and dozens of lines.

beta
Philippe Pittoli 2024-02-04 14:33:16 +01:00
parent 08dcd6d875
commit 2904a0e089
1 changed files with 33 additions and 16 deletions

View File

@ -131,24 +131,38 @@ data Update_Local_Form
| Update_Local_Form_SRVRR Update_SRV_Form
data Action
-- | Create a modal to ask confirmation before deleting a resource record.
= DeleteRRModal RRId
-- | Cancel the current displayed modal.
| CancelModal
-- | Create a new resource record modal (a form) for a certain type of component.
| NewRRModal AcceptedRRTypes
-- | Initiate the component. This means asking the content of the zone to `dnsmanagerd`.
| Initialize
-- Add new entries.
-- | Add a new resource record to the zone.
| AddRR AcceptedRRTypes ResourceRecord
-- Validate a new resource record before adding it.
-- | Validate a new resource record before adding it.
| ValidateRR AcceptedRRTypes
-- | Validate the entries in an already existing resource record.
| ValidateLocal RRId AcceptedRRTypes
-- | Save the changes done in an already existing resource record.
| SaveLocal ResourceRecord
-- Update new entry form (in the `active_new_rr_modal` modal).
-- | Update new entry form (in the `active_new_rr_modal` modal).
| UpdateNewRRForm Update_MODAL_Form
-- Update an already active entry.
| UpdateLocalForm RRId Update_Local_Form
-- TODO: Update an already existing resource record.
| UpdateLocalForm (SRVRR ())
-- | Update an already active entry.
| UpdateLocalRR RRId Update_Local_Form
| SaveSRR RRId
| SaveMXRR RRId
@ -511,7 +525,14 @@ handleAction = case _ of
$ DNSManager.MkAddRR { domain: state._domain, rr: newrr }
H.raise $ MessageToSend message
UpdateLocalForm rr_id form -> case form of
UpdateLocalForm entry -> do
state <- H.get
H.raise $ Log $ SimpleLog $ "Let's try to update entry number " <> show entry.rrid
let replaceRR rr1 rr2 | rr1.rrid == rr2.rrid = rr1
| otherwise = rr2
H.modify_ _ { _resources = (map (replaceRR entry) state._resources) }
UpdateLocalRR rr_id form -> case form of
Update_Local_Form_SRR rr_update -> case rr_update of
Update_SRR_Domain val -> do
-- H.raise $ Log $ SimpleLog ("Update local RR " <> show rr_id <> " name: " <> val)
@ -578,7 +599,7 @@ handleAction = case _ of
state <- H.get
H.modify_ _ { _srvrr = (update_port rr_id val state._srvrr) }
-- TODO: validate any local RR with the new _resources and _local_errors.
-- | validate any local RR with the new _resources and _local_errors.
ValidateLocal local_rr_id t -> do
state <- H.get
case first (\rr -> rr.rrid == local_rr_id) state._resources of
@ -594,10 +615,6 @@ handleAction = case _ of
let new_error_hash = Hash.delete local_rr.rrid state._local_errors
H.modify_ _ { _local_errors = new_error_hash }
handleAction $ SaveLocal rr
message <- H.liftEffect
$ DNSManager.serialize
$ DNSManager.MkUpdateRR { domain: state._domain, rr: rr }
H.raise $ MessageToSend message
SaveLocal rr -> do
state <- H.get
@ -809,7 +826,7 @@ render_resources errors records
-- , HH.td_ [ Bulma.btn_delete (\_ -> DeleteRRModal rr.rrid) ]
-- ]
-- ] <> error_row rr
-- update_simple rrid v = (UpdateLocalForm rrid) <<< Update_Local_Form_SRR <<< v
-- update_simple rrid v = (UpdateLocalRR rrid) <<< Update_Local_Form_SRR <<< v
-- error_row rr = case Hash.lookup rr.rrid errors of
-- Nothing -> []
-- Just error_array -> [ HH.tr_ $
@ -850,7 +867,7 @@ render_records errors records
, HH.td_ [ Bulma.btn_delete (\_ -> DeleteRRModal rr.rrid) ]
]
] <> error_row rr
update_simple rrid v = (UpdateLocalForm rrid) <<< Update_Local_Form_SRR <<< v
update_simple rrid v = (UpdateLocalRR rrid) <<< Update_Local_Form_SRR <<< v
error_row rr = case Hash.lookup rr.rrid errors of
Nothing -> []
Just error_array -> [ HH.tr_ $
@ -895,7 +912,7 @@ render_mx_records errors records
, HH.td_ [ Bulma.btn_delete (\_ -> DeleteRRModal rr.rrid) ]
]
] <> error_row rr
update_mx rrid v = (UpdateLocalForm rrid) <<< Update_Local_Form_MXRR <<< v
update_mx rrid v = (UpdateLocalRR rrid) <<< Update_Local_Form_MXRR <<< v
error_row rr = case Hash.lookup rr.rrid errors of
Nothing -> []
Just error_array ->
@ -936,7 +953,7 @@ render_srv_records errors records
, HH.td_ [ Bulma.btn_delete (\_ -> DeleteRRModal rr.rrid) ]
]
] <> error_row rr
update_srv rrid v = (UpdateLocalForm rrid) <<< Update_Local_Form_SRVRR <<< v
update_srv rrid v = (UpdateLocalRR rrid) <<< Update_Local_Form_SRVRR <<< v
error_row rr = case Hash.lookup rr.rrid errors of
Nothing -> []
Just error_array ->
@ -1033,7 +1050,7 @@ update f rr_id records = map doSmth records
where
doSmth rr
| rr_id == rr.rrid = f rr
| otherwise = rr
| otherwise = rr
fromResourceRecordToLocalRepresentationSimpleRR :: ResourceRecord -> Maybe (SimpleRR ())
fromResourceRecordToLocalRepresentationSimpleRR new_rr =