Minor syntax detail.

This commit is contained in:
Philippe Pittoli 2024-03-01 16:02:54 +01:00
parent e893a6dca2
commit 7593702398

View File

@ -568,7 +568,8 @@ handleAction = case _ of
H.modify_ \s -> s { _currentRR { mechanisms = case s._currentRR.mechanisms of
Just ms -> Just (remove_id i $ attach_id 0 ms)
Nothing -> Nothing
} }
}
}
SPF_Mechanism_Add -> do
state <- H.get