Minor syntax detail.
This commit is contained in:
parent
e893a6dca2
commit
7593702398
@ -568,7 +568,8 @@ handleAction = case _ of
|
|||||||
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
|
||||||
|
Loading…
Reference in New Issue
Block a user