ZoneInterface: remove the DoNothing action.
This commit is contained in:
parent
c0d38d09bb
commit
44e4331943
@ -118,8 +118,6 @@ data Action
|
||||
| Initialize
|
||||
| Finalize
|
||||
|
||||
| DoNothing String
|
||||
|
||||
-- New entries.
|
||||
| UpdateNewSRRForm Update_SRR_Form
|
||||
| UpdateNewMXForm Update_MX_Form
|
||||
@ -253,9 +251,6 @@ handleAction = case _ of
|
||||
state <- H.get
|
||||
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
|
||||
Update_SRR_Type val -> do
|
||||
let new_type = fromMaybe "unknown" (baseRecords !! val)
|
||||
|
Loading…
Reference in New Issue
Block a user