support invalidating existing VerifiedCopys
This commit is contained in:
parent
90f7c4b6a2
commit
c75c79864d
8 changed files with 73 additions and 23 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue