Fix pattern matching missing case

src/Vervis/API.hs

@@ -850,7 +850,7 @@ createTicketC (Entity pidUser personUser) sharerUser summary audience ticket muT
         let mlu' =
                 case mpatch of
                     Just (Just luBranch, _, _) -> Just luBranch
-                    Nothing -> mlu
+                    _ -> mlu
         mroid <- for mlu' $ \ lu -> either entityKey id <$> insertBy' (RemoteObject iid lu)
         let removeBranch (mb, typ, diff) = (typ, diff)
         return (era, mroid, removeBranch <$> mpatch)