mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add git configs for clusters

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
Types/Cluster.hs
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 $