mirror of
https://code.naskya.net/repos/ndqEd
synced 2025-01-25 17:07:53 +09:00
Fix pattern matching missing case
This commit is contained in:
parent
cc0040f012
commit
7415175bea
1 changed files with 1 additions and 1 deletions
|
@ -850,7 +850,7 @@ createTicketC (Entity pidUser personUser) sharerUser summary audience ticket muT
|
||||||
let mlu' =
|
let mlu' =
|
||||||
case mpatch of
|
case mpatch of
|
||||||
Just (Just luBranch, _, _) -> Just luBranch
|
Just (Just luBranch, _, _) -> Just luBranch
|
||||||
Nothing -> mlu
|
_ -> mlu
|
||||||
mroid <- for mlu' $ \ lu -> either entityKey id <$> insertBy' (RemoteObject iid lu)
|
mroid <- for mlu' $ \ lu -> either entityKey id <$> insertBy' (RemoteObject iid lu)
|
||||||
let removeBranch (mb, typ, diff) = (typ, diff)
|
let removeBranch (mb, typ, diff) = (typ, diff)
|
||||||
return (era, mroid, removeBranch <$> mpatch)
|
return (era, mroid, removeBranch <$> mpatch)
|
||||||
|
|
Loading…
Add table
Reference in a new issue