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

Remove unused code.

Browse Source
This commit is contained in:
Philippe Pittoli 2024-01-23 02:44:06 +01:00
parent d6f49210a8
commit 8310488e82
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/App/ZoneInterface.purs
View File

@ -105,8 +105,7 @@ data Update_MODAL_Form
| Update_MODAL_Port Port
data Update_SRR_Form
= Update_SRR_Type Int
| Update_SRR_Domain RecordName
= Update_SRR_Domain RecordName
| Update_SRR_TTL TTL
| Update_SRR_Target RecordTarget
@ -494,9 +493,6 @@ handleAction = case _ of
UpdateLocalForm rr_id form -> case form of
Update_Local_Form_SRR rr_update -> case rr_update of
Update_SRR_Type val -> do
let new_type = fromMaybe "unknown" (baseRecords A.!! val)
H.raise $ Log $ SimpleLog ("TODO: Update local RR " <> show rr_id <> " type: " <> new_type)
Update_SRR_Domain val -> do
-- H.raise $ Log $ SimpleLog ("Update local RR " <> show rr_id <> " name: " <> val)
state <- H.get