diff options
Diffstat (limited to 'Logs/Chunk/Pure.hs')
| -rw-r--r-- | Logs/Chunk/Pure.hs | 24 |
1 files changed, 19 insertions, 5 deletions
diff --git a/Logs/Chunk/Pure.hs b/Logs/Chunk/Pure.hs index 9bbfb868c..080a5a08b 100644 --- a/Logs/Chunk/Pure.hs +++ b/Logs/Chunk/Pure.hs @@ -6,7 +6,8 @@ -} module Logs.Chunk.Pure - ( ChunkSize + ( ChunkMethod(..) + , ChunkSize , ChunkCount , ChunkLog , parseLog @@ -17,24 +18,37 @@ import Common.Annex import Logs.MapLog import Data.Int +-- Currently chunks are all fixed size, but other chunking methods +-- may be added. +data ChunkMethod = FixedSizeChunks ChunkSize | UnknownChunks String + deriving (Ord, Eq) + type ChunkSize = Int64 +-- 0 when chunks are no longer present type ChunkCount = Integer -type ChunkLog = MapLog (UUID, ChunkSize) ChunkCount +type ChunkLog = MapLog (UUID, ChunkMethod) ChunkCount + +parseChunkMethod :: String -> ChunkMethod +parseChunkMethod s = maybe (UnknownChunks s) FixedSizeChunks (readish s) + +showChunkMethod :: ChunkMethod -> String +showChunkMethod (FixedSizeChunks sz) = show sz +showChunkMethod (UnknownChunks s) = s parseLog :: String -> ChunkLog parseLog = parseMapLog fieldparser valueparser where fieldparser s = - let (u,sz) = separate (== sep) s - in (,) <$> pure (toUUID u) <*> readish sz + let (u,m) = separate (== sep) s + in Just (toUUID u, parseChunkMethod m) valueparser = readish showLog :: ChunkLog -> String showLog = showMapLog fieldshower valueshower where - fieldshower (u, sz) = fromUUID u ++ sep : show sz + fieldshower (u, m) = fromUUID u ++ sep : showChunkMethod m valueshower = show sep :: Char |