Shard data type

1 files changed, 10 insertions, 0 deletions

diff --git a/Serialization.hs b/Serialization.hs
index 15f8881..4d6a671 100644
--- a/Serialization.hs
+++ b/Serialization.hs
@@ -33,5 +33,15 @@ instance Encodable StorableObjectIdent where
 	toByteString (StorableObjectIdent i) = i
 	fromByteString = Just . StorableObjectIdent
 
+instance Encodable StorableObject where
+	 toByteString (StorableObject b) = b
+	 fromByteString = Just . StorableObject
+
+-- | A shard is serialized without its shard number. This prevents
+-- an attacker from partitioning their shards by shard number.
+instance Encodable Shard where
+	toByteString (Shard _n o) = toByteString o
+	fromByteString _ = Nothing
+
 sepChar :: Word8
 sepChar = 32