Make GC emails also delete orphaned verifications

backend/src/Datarekisteri/Backend/DB/Queries.hs

@@ -137,6 +137,13 @@ deleteExpiredEmails time = runQuery $ delete $ do
     verification <- from $ table @DBEmailVerification
     where_ $ verification ^. DBEmailVerificationExpires <=. val time
 
+deleteOrphanedVerifications :: MonadDB m => m ()
+deleteOrphanedVerifications = runQuery $ delete $ do
+    verification <- from $ table @DBEmailVerification
+    where_ $ (==. val (0 :: Int)) $ subSelectCount $ do
+        email <- from $ table @DBEmail
+        where_ $ email ^. DBEmailVid ==. just (verification ^. DBEmailVerificationId)
+
 deleteUsersWithoutEmail :: MonadDB m => m ()
 deleteUsersWithoutEmail = runQuery $ delete $ do
     user <- from $ table @DBUser

backend/src/Datarekisteri/CLI.hs

@@ -58,6 +58,7 @@ gcEmailsMain :: CLIM ()
 gcEmailsMain = do
     time <- currentTime
     deleteExpiredEmails time
+    deleteOrphanedVerifications
 
 gcApplicationsMain :: CLIM ()
 gcApplicationsMain = do