From c1a93cb4805e35e288b3185ef0f26cf1f3ab783f Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 24 Jul 2014 13:36:23 -0400
Subject: add chunk metadata to Key

Added new fields for chunk number, and chunk size. These will not appear
in normal keys ever, but will be used for chunked data stored on special
remotes.

This commit was sponsored by Jouni K Seppanen.
---
 Backend/WORM.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Backend')

diff --git a/Backend/WORM.hs b/Backend/WORM.hs
index cc7123850..fdeea6f89 100644
--- a/Backend/WORM.hs
+++ b/Backend/WORM.hs
@@ -36,7 +36,7 @@ keyValue :: KeySource -> Annex (Maybe Key)
 keyValue source = do
 	stat <- liftIO $ getFileStatus $ contentLocation source
 	n <- genKeyName $ keyFilename source
-	return $ Just Key
+	return $ Just $ stubKey
 		{ keyName = n
 		, keyBackendName = name backend
 		, keySize = Just $ fromIntegral $ fileSize stat
-- 
cgit v1.2.3