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

Minor syntax detail.

Browse Source
This commit is contained in:
Philippe Pittoli 2024-03-01 16:02:54 +01:00
parent e893a6dca2
commit 7593702398
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/App/ZoneInterface.purs
View File

@ -566,9 +566,10 @@ handleAction = case _ of
SPF_Qualifier v -> H.modify_ _ { spf_qualifier = maybe "none" id $ qualifier_types A.!! v } SPF_Qualifier v -> H.modify_ _ { spf_qualifier = maybe "none" id $ qualifier_types A.!! v }
SPF_remove_mechanism i -> SPF_remove_mechanism i ->
H.modify_ \s -> s { _currentRR { mechanisms = case s._currentRR.mechanisms of H.modify_ \s -> s { _currentRR { mechanisms = case s._currentRR.mechanisms of
Just ms -> Just (remove_id i $ attach_id 0 ms) Just ms -> Just (remove_id i $ attach_id 0 ms)
Nothing -> Nothing Nothing -> Nothing
} } }
}
SPF_Mechanism_Add -> do SPF_Mechanism_Add -> do
state <- H.get state <- H.get