1
0
Fork 0
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:
fr33domlover 2020-08-31 09:19:34 +00:00
parent cc0040f012
commit 7415175bea

View file

@ -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)