add missing case
This commit is contained in:
parent
2eadb6cd68
commit
ed8d9a29fe
1 changed files with 1 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue