change verb when dry-running

cabal: build with -Wall
add config and dry-run options
2021-09-06 01:30:01 +02:00 · 2021-09-06 01:30:01 +02:00 · 2021-09-06 01:30:01 +02:00 · 2021-09-06 01:26:38 +02:00
1 changed files with 2 additions and 2 deletions
--- a/Main.hs
+++ b/Main.hs
@ -189,8 +189,8 @@ deleteQuotaOrigins = do
      S.restrict (by whitelist quota)
      return (quota ! #origin)
    when (not dry) $
-      S.deleteFrom_ quotaOrigins (by whitelist)
-    return (length bad, nub bad)
+      S.deleteFrom_ cookies (by whitelist)
+    return (n, nub bad)
  where
    -- check if quota is not whitelisted
    by whitelist quota = S.not_ (S.true `S.isIn` matches)
Author	SHA1	Message	Date
Michele Guerini Rocco	9fdbbc1663	change verb when dry-running	2021-09-06 01:30:01 +02:00
Michele Guerini Rocco	907ab81b58	cabal: build with -Wall	2021-09-06 01:30:01 +02:00
Michele Guerini Rocco	2d75a0d35c	add config and dry-run options	2021-09-06 01:30:01 +02:00
Michele Guerini Rocco	343136536f	Fix issue #6 Avoid generating a large SQL query by making the patterns an ad-hoc table	2021-09-06 01:26:38 +02:00