diff options
| author | Joey Hess <joeyh@joeyh.name> | 2019-01-10 17:17:37 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2019-01-10 17:17:37 -0400 |
| commit | ed8d9a29fe6b6651479436a098e380f50eac65b7 (patch) | |
| tree | 4e1756fb1cf737741d4f7671b6ab57c80d938d3b /Types/UUID.hs | |
| parent | 2eadb6cd68073a905e8ff32cc8093a43d0b05c81 (diff) | |
add missing case
Diffstat (limited to 'Types/UUID.hs')
| -rw-r--r-- | Types/UUID.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Types/UUID.hs b/Types/UUID.hs index 0c8fb05fcf..eb7433ae59 100644 --- a/Types/UUID.hs +++ b/Types/UUID.hs @@ -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 |