-- | Provide the String representation of a lock
lockName :: GanetiLocks -> String
lockName BGL = "cluster/BGL"
lockName :: GanetiLocks -> String
lockName BGL = "cluster/BGL"
lockName BGL = "cluster/BGL"