Synnefo » snf-ganeti

                 | Node String

                 | NodeResLockSet

                 | NodeRes String

                 deriving (Ord, Eq, Show)

-- | Provide the String representation of a lock

lockName (Node uuid) = "node/" ++ uuid

lockName NodeResLockSet = "node-res/[lockset]"

lockName (NodeRes uuid) = "node-res/" ++ uuid

-- | Obtain a lock from its name.

lockFromName :: String -> J.Result GanetiLocks

lockFromName (stripPrefix "node-res/" -> Just uuid) = return $ NodeRes uuid

lockFromName "node/[lockset]" = return NodeLockSet

lockFromName (stripPrefix "node/" -> Just uuid) = return $ Node uuid

lockFromName n = fail $ "Unknown lock name '" ++ n ++ "'"

instance J.JSON GanetiLocks where

  lockImplications NAL = [NodeAllocLockSet, BGL]

  lockImplications (NodeRes _) = [NodeResLockSet, BGL]

  lockImplications (Node _) = [NodeLockSet, BGL]

  lockImplications _ = [BGL]

-- | The type of lock Allocations in Ganeti. In Ganeti, the owner of

                    , NodeRes <$> genUUID

                    , return NodeLockSet

                    , Node <$> genUUID

                    ]

-- | Verify that readJSON . showJSON = Ok