From e450d7a2d1bdde57d01f027b2e5b8080095f1380 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 11 Aug 2016 17:40:23 -0400 Subject: pluggable object storage layer --- Types.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Types.hs') diff --git a/Types.hs b/Types.hs index 06bfbe2..20ec63e 100644 --- a/Types.hs +++ b/Types.hs @@ -34,7 +34,9 @@ newtype StorableObjectIdent = StorableObjectIdent B.ByteString deriving (Show) -- | A shard, with a known number (N of M). -data Shard = Shard Int StorableObject +data Shard = Shard ShardNum StorableObject + +type ShardNum = Int -- | A password used to encrypt a key stored in keysafe. newtype Password = Password B.ByteString -- cgit v1.2.3