From 1e12f0574214cd68b2d201889ff15e79a5cc0076 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 22 Aug 2016 12:07:17 -0400 Subject: return ProofOfWorkRequirement t This way the requirement can be varied for different operations. --- Types.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Types.hs') diff --git a/Types.hs b/Types.hs index e66e3b2..a132f26 100644 --- a/Types.hs +++ b/Types.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE OverloadedStrings, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleInstances #-} +{-# LANGUAGE OverloadedStrings, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-} {- Copyright 2016 Joey Hess - @@ -11,6 +11,7 @@ import Types.Cost import qualified Data.ByteString as B import Data.String import Control.DeepSeq +import GHC.Generics (Generic) -- | keysafe stores secret keys. newtype SecretKey = SecretKey B.ByteString @@ -29,7 +30,7 @@ instance Bruteforceable EncryptedSecretKey UnknownPassword where -- | An object in a form suitable to be stored on a keysafe server. newtype StorableObject = StorableObject { fromStorableObject :: B.ByteString } - deriving (Show, Eq, Ord) + deriving (Show, Eq, Ord, Generic) -- | An identifier for a StorableObject newtype StorableObjectIdent = StorableObjectIdent B.ByteString -- cgit v1.2.3