mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions 1

add missing case

Browse source
This commit is contained in:
Joey Hess 2019-01-10 17:17:37 -04:00
parent 2eadb6cd68
commit ed8d9a29fe
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Types/UUID.hs
View file

@ -57,6 +57,7 @@ instance ToUUID U.UUID where
buildUUID :: UUID -> Builder buildUUID :: UUID -> Builder
buildUUID (UUID b) = byteString b buildUUID (UUID b) = byteString b
buildUUID NoUUID = mempty
isUUID :: String -> Bool isUUID :: String -> Bool
isUUID = isJust . U.fromString isUUID = isJust . U.fromString