support invalidating existing VerifiedCopys
This commit is contained in:
parent
90f7c4b6a2
commit
c75c79864d
8 changed files with 73 additions and 23 deletions
|
@ -131,6 +131,9 @@ instance Eq (RemoteA a) where
|
|||
instance Ord (RemoteA a) where
|
||||
compare = comparing uuid
|
||||
|
||||
instance ToUUID (RemoteA a) where
|
||||
toUUID = uuid
|
||||
|
||||
-- Use Verified when the content of a key is verified as part of a
|
||||
-- transfer, and so a separate verification step is not needed.
|
||||
data Verification = UnVerified | Verified
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue