1 files changed, 3 insertions, 1 deletions
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