inline slightly modified version of secret-sharing

Needed for efficient serialization of shares, unless upstream takes my
suggestion to make the finite field be size 256.

1 files changed, 9 insertions, 0 deletions

diff --git a/Serialization.hs b/Serialization.hs
index 224d67a..15f8881 100644
--- a/Serialization.hs
+++ b/Serialization.hs
@@ -1,6 +1,11 @@
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {-# LANGUAGE OverloadedStrings #-}
 
+{- Copyright 2016 Joey Hess <id@joeyh.name>
+ -
+ - Licensed under the GNU AGPL version 3 or higher.
+ -}
+
 module Serialization where
 
 import Types
@@ -24,5 +29,9 @@ instance Encodable Name where
 	toByteString (Name n) = n
 	fromByteString = Just . Name
 
+instance Encodable StorableObjectIdent where
+	toByteString (StorableObjectIdent i) = i
+	fromByteString = Just . StorableObjectIdent
+
 sepChar :: Word8
 sepChar = 32