Shard data type

1 files changed, 3 insertions, 0 deletions

diff --git a/Types.hs b/Types.hs
index e8bd8c0..06bfbe2 100644
--- a/Types.hs
+++ b/Types.hs
@@ -33,6 +33,9 @@ newtype StorableObject = StorableObject { fromStorableObject :: B.ByteString }
 newtype StorableObjectIdent = StorableObjectIdent B.ByteString
 	deriving (Show)
 
+-- | A shard, with a known number (N of M).
+data Shard = Shard Int StorableObject
+
 -- | A password used to encrypt a key stored in keysafe.
 newtype Password = Password B.ByteString
 	deriving (IsString)