diff --git a/src/Vervis/API.hs b/src/Vervis/API.hs
index 1304a98..4f37cb7 100644
--- a/src/Vervis/API.hs
+++ b/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)