diff --git a/server/src-lib/Hasura/Events/HTTP.hs b/server/src-lib/Hasura/Events/HTTP.hs
index e21b1ad5a01ea..57ba38fd530b9 100644
--- a/server/src-lib/Hasura/Events/HTTP.hs
+++ b/server/src-lib/Hasura/Events/HTTP.hs
@@ -130,9 +130,7 @@ isNetworkErrorHC = \case
 
 -- retries on the typical network errors
 defaultRetryFn :: Either HTTPErr a -> Bool
-defaultRetryFn = \case
-  Left e  -> isNetworkError e
-  Right _ -> False
+defaultRetryFn _ = False
 
 -- full jitter backoff
 defaultRetryPolicy :: (MonadIO m) => R.RetryPolicyM m