add git configs for clusters
This commit is contained in:
parent
de1d795dfe
commit
2844230dfe
6 changed files with 49 additions and 7 deletions
|
@ -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 $
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue