From d79a539f71e8250f677ac4e0b42c9ffd4de50af5 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Wed, 2 Jun 2021 16:46:24 +0200
Subject: [PATCH] fix(memcached): don't 500 upon hitting item size limit

---
 src/Handler/Utils/Memcached.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Utils/Memcached.hs b/src/Handler/Utils/Memcached.hs
index de06f6103..593ddf14e 100644
--- a/src/Handler/Utils/Memcached.hs
+++ b/src/Handler/Utils/Memcached.hs
@@ -241,7 +241,7 @@ memcachedBySet mExp (Binary.encode -> k) v = do
     let cKey = toMemcachedKey memcachedKey (Proxy @a) k
         aad = memcachedAAD cKey mExpiry
         mCiphertext = AEAD.aead memcachedKey mNonce decrypted aad
-    liftIO $ Memcached.set zeroBits (fromMaybe zeroBits mExp') cKey (Binary.runPut $ putMemcachedValue MemcachedValue{..}) memcachedConn
+    liftIO . handle (\(_ :: Memcached.MemcachedException) -> return ()) $ Memcached.set zeroBits (fromMaybe zeroBits mExp') cKey (Binary.runPut $ putMemcachedValue MemcachedValue{..}) memcachedConn
     $logDebugS "memcached" $ "Cache store: " <> tshow mExpiry
 
   mLocal <- getsYesod appMemcachedLocal