Fix issue #6

Avoid creating a large SQL by making the patterns an ad-hoc table

Main.hs

@@ -143,14 +143,21 @@ deleteQuotaOrigins = do
       quota <- S.select quotaOrigins
       S.restrict (by whitelist quota)
       return (quota ! #origin)
-    n <- S.deleteFrom quotaOrigins (by whitelist)
-    return (n, nub bad)
+    when (not dry) $
+      S.deleteFrom_ quotaOrigins (by whitelist)
+    return (length bad, nub bad)
   where
-    -- check if x ∉ set
-    by set x = S.not_ . any_ . map (S.like (x ! #origin)) $ set
+    -- check if quota is not whitelisted
+    by whitelist quota = S.not_ (S.true `S.isIn` matches)
+      where
+        url = quota ! #origin
+        matches = do
+          pattern <- S.selectValues (map S.Only whitelist)
+          S.restrict (url `S.like` S.the pattern)
+          return S.true
     -- turns domains into patterns to match a url
-    pattern domain = S.text ("http%://%" <> domain <> "/")
-    any_ = foldl' (.||) S.false
+    pattern domain = "http%://%" <> domain <> "/"
+
 
 
 -- | Deletes per-domain files under the IndexedDB directory