Minor syntax detail.
parent
e893a6dca2
commit
7593702398
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue