Fix #4

src/Web/Sqids/Internal.hs

@@ -225,8 +225,9 @@ instance (MonadSqids m) => MonadSqids (SelectT r m) where
 --   3. Remove words that contain characters that are not in the alphabet
 --
 filteredBlocklist :: Text -> [Text] -> [Text]
-filteredBlocklist alph ws = (Text.map toLower) <$> filter isValid ws where
-  isValid w = Text.length w >= 3 && Text.all (`Text.elem` alph) w
+filteredBlocklist alph ws = filter isValid (Text.map toLower <$> ws) where
+  isValid w = Text.length w >= 3 && Text.all (`Text.elem` lowercaseAlphabet) w
+  lowercaseAlphabet = Text.map toLower alph
 
 decodeStep :: (Text, Text) -> Maybe (Int, (Text, Text))
 decodeStep (sqid, alph)

test/Web/Sqids/BlocklistTests.hs

@@ -61,3 +61,11 @@ testBlocklist = do
 
     it "match against a short blocklist word" $
       withCustomBlocklist [ "pPQ" ] ((encode >=> decode) [1000]) `shouldBe` Right [1000]
+
+    it "blocklist filtering in constructor" $ do
+      let options = defaultSqidsOptions { alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ", blocklist = ["sqnmpn"] } 
+          testFn = do
+            p <- encode [1, 2, 3]
+            q <- decode p
+            pure (p, q)
+      runSqids options testFn `shouldBe` Right ("ULPBZGBM", [1, 2, 3])