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

ZoneInterface: remove the DoNothing action.

Browse Source
This commit is contained in:
Philippe Pittoli 2023-07-09 17:41:37 +02:00
parent c0d38d09bb
commit 44e4331943
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/App/ZoneInterface.purs
View File

@ -118,8 +118,6 @@ data Action
| Initialize | Initialize
| Finalize | Finalize
| DoNothing String
-- New entries. -- New entries.
| UpdateNewSRRForm Update_SRR_Form | UpdateNewSRRForm Update_SRR_Form
| UpdateNewMXForm Update_MX_Form | UpdateNewMXForm Update_MX_Form
@ -253,9 +251,6 @@ handleAction = case _ of
state <- H.get state <- H.get
H.raise $ Log $ SimpleLog "Finalized!" H.raise $ Log $ SimpleLog "Finalized!"
DoNothing _ -> do
H.raise $ Log $ SimpleLog "This action does nothing (at least for now)"
UpdateNewSRRForm rr_update -> case rr_update of UpdateNewSRRForm rr_update -> case rr_update of
Update_SRR_Type val -> do Update_SRR_Type val -> do
let new_type = fromMaybe "unknown" (baseRecords !! val) let new_type = fromMaybe "unknown" (baseRecords !! val)