add missing case

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

View file

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