diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs index 734255b..3ecc3d3 100644 --- a/src/App/ZoneInterface.purs +++ b/src/App/ZoneInterface.purs @@ -566,9 +566,10 @@ handleAction = case _ of SPF_Qualifier v -> H.modify_ _ { spf_qualifier = maybe "none" id $ qualifier_types A.!! v } SPF_remove_mechanism i -> H.modify_ \s -> s { _currentRR { mechanisms = case s._currentRR.mechanisms of - Just ms -> Just (remove_id i $ attach_id 0 ms) - Nothing -> Nothing - } } + Just ms -> Just (remove_id i $ attach_id 0 ms) + Nothing -> Nothing + } + } SPF_Mechanism_Add -> do state <- H.get