chris-martin / redis-glob

A haskell version of the glob used by redis

redis-glob

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