Skip to content

adetokunbo/redis-glob

Repository files navigation

redis-glob

GitHub CI Stackage Nightly Hackage Hackage Dependencies BSD3

redis-glob checks that glob expressions for use with Redis are valid. Redis commands like KEYS use glob expressions to match keys in redis.

If the glob expression is invalid, the command returns an empty result, which unfortunately is the same as if the expression was valid but had no results.

Use validate to confirm if a glob expression is valid. It parses the expression in the same way as the actual redis glob implementation, returning Nothing for invalid expressions.

matches can be used to confirm that a bytestring matches a glob expression if the the glob expression is valid.

Example

{-# LANGUAGE OverloadedStrings #-}

import Redis.Glob
import qualified Data.ByteString.Lazy.Char8 as CL


isOK :: CL.ByteString -> IO ()
isOk b = do
  CL.putStrLn $ "Is " <> b <> " ok? " <> maybe "n" (const "y") (validate b)
  CL.putStrLn $ "Does it match hello? " <> if (b `matches` "hello") then "y" else "n"

main :: IO()
main = do
  isOK "h?llo"     -- Is h?llo ok? y
                   -- Does it match hello? y
  isOK "y[a-b]llo" -- Is y[a-b]llo ok? y"
                   -- Does it match hello? n
  isOK "h[a-]llo"  -- Is h[a-]llo ok? n
                   -- Does it match hello? n