diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs index 7cff984..7e70989 100644 --- a/src/App/ZoneInterface.purs +++ b/src/App/ZoneInterface.purs @@ -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)