diff options
Diffstat (limited to 'Types')
-rw-r--r-- | Types/Key.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Types/Key.hs b/Types/Key.hs index 037437303..553fd8f3d 100644 --- a/Types/Key.hs +++ b/Types/Key.hs @@ -16,6 +16,7 @@ module Types.Key ( nonChunkKey, chunkKeyOffset, isChunkKey, + isKeyPrefix, prop_idempotent_key_encode, prop_idempotent_key_decode @@ -66,6 +67,10 @@ chunkKeyOffset k = (*) isChunkKey :: Key -> Bool isChunkKey k = isJust (keyChunkSize k) && isJust (keyChunkNum k) +-- Checks if a string looks like at least the start of a key. +isKeyPrefix :: String -> Bool +isKeyPrefix s = [fieldSep, fieldSep] `isInfixOf` s + fieldSep :: Char fieldSep = '-' |