diff options
Diffstat (limited to 'Types.hs')
-rw-r--r-- | Types.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1,4 +1,4 @@ -{-# LANGUAGE OverloadedStrings, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleInstances #-} +{-# LANGUAGE OverloadedStrings, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-} {- Copyright 2016 Joey Hess <id@joeyh.name> - @@ -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 |