diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-10-08 17:58:32 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-10-08 17:58:32 -0400 |
commit | c75c79864daba3422ef4432f12929464695d8d4d (patch) | |
tree | 018fb32a0f2dd2110bbbec0fce9d27fbb1363236 /Types/UUID.hs | |
parent | 90f7c4b6a234d9d49d07a06d2ea5cda41b50b453 (diff) |
support invalidating existing VerifiedCopys
Diffstat (limited to 'Types/UUID.hs')
-rw-r--r-- | Types/UUID.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Types/UUID.hs b/Types/UUID.hs index 27d82b86ce..4212eaa7f9 100644 --- a/Types/UUID.hs +++ b/Types/UUID.hs @@ -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 |