diff options
| author | Lia Lenckowski <lialenck@protonmail.com> | 2024-02-28 08:54:28 +0100 |
|---|---|---|
| committer | Lia Lenckowski <lialenck@protonmail.com> | 2024-02-28 08:54:28 +0100 |
| commit | 12d988a551ad94ef0541cb9ed8bba41aabad68ce (patch) | |
| tree | b45fcca7d5ea1fbdeb8209075a005dacdb38be2c /src/Main.hs | |
| parent | ef4cc2d95d4ae2c70f280fc8f93bc8c6293b19a0 (diff) | |
| download | fastbangs-12d988a551ad94ef0541cb9ed8bba41aabad68ce.tar fastbangs-12d988a551ad94ef0541cb9ed8bba41aabad68ce.tar.bz2 fastbangs-12d988a551ad94ef0541cb9ed8bba41aabad68ce.tar.zst | |
add pending bang limit
Diffstat (limited to 'src/Main.hs')
| -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 |