support invalidating existing VerifiedCopys

This commit is contained in:
Joey Hess 2015-10-08 17:58:32 -04:00
parent 90f7c4b6a2
commit c75c79864d
Failed to extract signature
8 changed files with 73 additions and 23 deletions

View file

@ -24,6 +24,9 @@ fromUUID NoUUID = ""
class ToUUID a where
toUUID :: a -> UUID
instance ToUUID UUID where
toUUID = id
instance ToUUID String where
toUUID [] = NoUUID
toUUID s = UUID s