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

Slight refactoring.

Browse Source
This commit is contained in:
Philippe Pittoli 2023-07-14 06:03:57 +02:00
parent 106245c6c6
commit 50eeb340f8
1 changed files with 13 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/App/ZoneInterface.purs
View File

@ -325,36 +325,15 @@ handleAction = case _ of
AddRR form -> case form of
Add_SRR -> do
state <- H.get
case Validation.validateSRR state._current_entry of
Left _ -> H.raise $ Log $ SimpleLog "Cannot add this simple RR, some errors occured in the record"
Right newrr -> do
H.raise $ Log $ SimpleLog "Add new simple RR"
message <- H.liftEffect
$ DNSManager.serialize
$ DNSManager.MkAddRR { domain: state._current_domain, rr: newrr }
H.raise $ MessageToSend message
try_add_new_entry state._current_domain (Validation.validateSRR state._current_entry) "simple"
Add_MXRR -> do
state <- H.get
case Validation.validateMXRR state._current_entry_mx of
Left _ -> H.raise $ Log $ SimpleLog "Cannot add this MX RR, some errors occured in the record"
Right newrr -> do
H.raise $ Log $ SimpleLog "Add new MX"
message <- H.liftEffect
$ DNSManager.serialize
$ DNSManager.MkAddRR { domain: state._current_domain, rr: newrr }
H.raise $ MessageToSend message
try_add_new_entry state._current_domain (Validation.validateMXRR state._current_entry_mx) "MX"
Add_SRVRR -> do
state <- H.get
case Validation.validateSRVRR state._current_entry_srv of
Left _ -> H.raise $ Log $ SimpleLog "Cannot add this SRV RR, some errors occured in the record"
Right newrr -> do
H.raise $ Log $ SimpleLog "Add new SRV"
message <- H.liftEffect
$ DNSManager.serialize
$ DNSManager.MkAddRR { domain: state._current_domain, rr: newrr }
H.raise $ MessageToSend message
try_add_new_entry state._current_domain (Validation.validateSRVRR state._current_entry_srv) "SRV"
UpdateLocalForm rr_id form -> case form of
Update_Local_Form_SRR rr_update -> case rr_update of
@ -488,6 +467,16 @@ handleAction = case _ of
-- H.raise $ Log $ SimpleLog (show rr)
H.raise $ Log $ SimpleLog (" => " <> val)
where
try_add_new_entry d v t = case v of
Left _ -> H.raise $ Log $ SimpleLog $ "Cannot add this " <> t <> " RR, some errors occured in the record"
Right newrr -> do
H.raise $ Log $ SimpleLog $ "Add new " <> t
message <- H.liftEffect
$ DNSManager.serialize
$ DNSManager.MkAddRR { domain: d, rr: newrr }
H.raise $ MessageToSend message
handleQuery :: forall a m. MonadAff m => Query a -> H.HalogenM State Action () Output m (Maybe a)
handleQuery = case _ of