From f7f0d213af979531224cfd1a5f1148e3f0803adc Mon Sep 17 00:00:00 2001
From: Lia Lenckowski <lialenck@protonmail.com>
Date: Sun, 30 Jul 2023 21:47:05 +0200
Subject: allow multiple suggestions for the same bang

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 0733c61..ff6823d 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -33,7 +33,7 @@ PendingBang
     url T.Text
     displayName T.Text
     notifyEmail (Maybe T.Text)
-    UniqueBang bang
+    UniqueBang bang url displayName
     deriving Show
 |]
 
@@ -144,7 +144,7 @@ postVerdictR b = do
     st <- bangState <$> getYesod
     when b $ liftIO $ addBang n u dp st
     --sendEmail mayEm $ "your bang was " <> bool b "rejected" "accepted" -- TODO
-    runDB $ deleteBy $ UniqueBang n
+    runDB $ deleteWhere [PendingBangBang ==. n]
     return ()
 
 postAcceptR, postRejectR :: Handler ()
-- 
cgit v1.2.3-70-g09d2