diff options
| -rw-r--r-- | src/Main.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 7d3a331..0aac4ec 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -99,6 +99,9 @@ postSubmitR :: Handler () postSubmitR = do pb <- requireCheckJsonBody unless (verifyPendingBang pb) $ invalidArgs [] + + cnt <- runDB $ count ([] :: [Filter PendingBang]) + unless (cnt < 1000) $ permissionDenied "Too many pending bangs already in database" runDB $ insert400_ pb liftIO . notifyRunner . notifyPbRunner =<< getYesod |