From ed8d9a29fe6b6651479436a098e380f50eac65b7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 10 Jan 2019 17:17:37 -0400 Subject: [PATCH] add missing case --- Types/UUID.hs | 1 + 1 file changed, 1 insertion(+) 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