From 7415175bea69863ca9839119b35c19f3e4cfd419 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Mon, 31 Aug 2020 09:19:34 +0000
Subject: [PATCH] Fix pattern matching missing case

---
 src/Vervis/API.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)