add git configs for clusters

This commit is contained in:
Joey Hess 2024-06-14 11:42:32 -04:00
parent de1d795dfe
commit 2844230dfe
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 49 additions and 7 deletions

View file

@ -34,8 +34,8 @@ newtype ClusterUUID = ClusterUUID UUID
-- Smart constructor for a ClusterUUID.
--
-- The input UUID can be a regular UUID (eg V4). It is converted to a valid
-- cluster uuid.
-- The input UUID can be any regular UUID (eg V4). It is converted to a valid
-- cluster UUID.
mkClusterUUID :: UUID -> Maybe ClusterUUID
mkClusterUUID (UUID b)
| B.length b > 14 = Just $ ClusterUUID $ UUID $