bisc 0.3.0.0 → 0.3.1.0

raw patch · 3 files changed

+11/−7 lines, 3 filessetup-changed

Files

• Main.hs +10/−4
• Setup.hs +0/−2
• bisc.cabal +1/−1

@@ -146,11 +146,17 @@     n <- S.deleteFrom quotaOrigins (by whitelist)     return (n, 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

@@ -1,2 +0,0 @@-import Distribution.Simple-main = defaultMain

@@ -1,5 +1,5 @@ name:                bisc-version:             0.3.0.0+version:             0.3.1.0 synopsis:            A small tool that clears cookies (and more). description: