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