Ganeti.WConfd.TempRes

Contents

• The main reservation state
  • Aliases to make types more meaningful:
• The state data structure
  • Utility functions
• DRBD functions
• Other temporary resources
  • Functions common to all reservations
  • IDs
  • MAC addresses
  • DRBD secrets
  • LVs
  • IPv4 addresses

Description

Synopsis

• type NodeUUID = String
• type InstanceUUID = String
• type NetworkUUID = String
• type DRBDMinor = Int
• type DRBDMap = Map NodeUUID (Map DRBDMinor InstanceUUID)
• type DRBDMap' = Map NodeUUID (Map DRBDMinor [InstanceUUID])
• data IPv4ResAction
  • = IPv4Reserve
  • | IPv4Release
• data IPv4Reservation = IPv4Res {
  • ipv4ResAction :: IPv4ResAction
  • ipv4ResNetwork :: NetworkUUID
  • ipv4ResAddr :: Ip4Address
  }
• newtype TempRes j a = TempRes {
  • getTempRes :: MultiMap j a
  }
• mkTempRes :: MultiMap j a -> TempRes j a
• data TempResState = TempResState {
  • trsDRBD :: DRBDMap
  • trsMACs :: TempRes ClientId MAC
  • trsDRBDSecrets :: TempRes ClientId DRBDSecret
  • trsLVs :: TempRes ClientId LogicalVolume
  • trsIPv4s :: TempRes ClientId IPv4Reservation
  }
• loadTempResState :: JSValue -> Result TempResState
• saveTempResState :: TempResState -> JSValue
• emptyTempResState :: TempResState
• trsMACsL :: Lens' TempResState (TempRes ClientId MAC)
• trsLVsL :: Lens' TempResState (TempRes ClientId LogicalVolume)
• trsIPv4sL :: Lens' TempResState (TempRes ClientId IPv4Reservation)
• trsDRBDSecretsL :: Lens' TempResState (TempRes ClientId DRBDSecret)
• trsDRBDL :: Lens' TempResState DRBDMap
• resError :: MonadError GanetiException m => String -> m a
• toResError :: MonadError GanetiException m => m a -> m a
• filterNested :: (Ord a, Ord b) => (c -> Bool) -> Map a (Map b c) -> Map a (Map b c)
• maybeLens :: (Monoid a, Monoid b, Eq b) => Lens s t (Maybe a) (Maybe b) -> Lens s t a b
• computeDRBDMap' :: MonadError GanetiException m => ConfigData -> TempResState -> m DRBDMap'
• computeDRBDMap :: MonadError GanetiException m => ConfigData -> TempResState -> m DRBDMap
• allocateDRBDMinor :: (MonadError GanetiException m, MonadState TempResState m) => ConfigData -> InstanceUUID -> [NodeUUID] -> m [DRBDMinor]
• releaseDRBDMinors :: MonadState TempResState m => InstanceUUID -> m ()
• isReserved :: (Ord a, Ord j) => a -> TempRes j a -> Bool
• reserve :: (MonadError GanetiException m, Show a, Ord a, Ord j) => j -> a -> TempRes j a -> m (TempRes j a)
• dropReservationsFor :: (Ord a, Ord j) => j -> TempRes j a -> TempRes j a
• reservedFor :: (Ord a, Ord j) => j -> TempRes j a -> Set a
• reserved :: (Ord a, Ord j) => TempRes j a -> Set a
• withReserved :: (MonadError GanetiException m, Show a, Ord a, Ord j) => j -> (Set a -> m a) -> TempRes j a -> m (a, TempRes j a)
• generate :: (MonadError GanetiException m, Show a, Ord a, Ord j) => j -> Set a -> m (Maybe a) -> TempRes j a -> m (a, TempRes j a)
• generateRand :: (MonadError GanetiException m, Show a, Ord a, Ord j, RandomGen g) => g -> j -> Set a -> (g -> (Maybe a, g)) -> TempRes j a -> m (a, TempRes j a)
• stateM :: MonadState s m => (s -> m (a, s)) -> m a
• modifyM :: MonadState s m => (s -> m s) -> m ()
• dropAllReservations :: ClientId -> State TempResState ()
• lookupNetwork :: MonadError GanetiException m => ConfigData -> NetworkUUID -> m Network
• generateMAC :: (RandomGen g, MonadError GanetiException m, Functor m) => g -> ClientId -> Maybe NetworkUUID -> ConfigData -> StateT TempResState m MAC
• reserveMAC :: (MonadError GanetiException m, MonadState TempResState m, Functor m) => ClientId -> MAC -> ConfigData -> m ()
• generateDRBDSecret :: (RandomGen g, MonadError GanetiException m, Functor m) => g -> ClientId -> ConfigData -> StateT TempResState m DRBDSecret
• reserveLV :: (MonadError GanetiException m, MonadState TempResState m, Functor m) => ClientId -> LogicalVolume -> ConfigData -> m ()
• usedIPv4Addrs :: NetworkUUID -> Set IPv4Reservation -> Set Ip4Address
• reserveIp :: (MonadError GanetiException m, MonadState TempResState m, Functor m) => ClientId -> NetworkUUID -> Ip4Address -> Bool -> ConfigData -> m ()
• releaseIp :: (MonadError GanetiException m, MonadState TempResState m, Functor m) => ClientId -> NetworkUUID -> Ip4Address -> m ()
• generateIp :: (MonadError GanetiException m, MonadState TempResState m, Functor m) => ClientId -> NetworkUUID -> ConfigData -> m Ip4Address
• commitIp :: (MonadError GanetiException m, Functor m) => IPv4Reservation -> ConfigData -> m ConfigData
• commitReleaseIp :: (MonadError GanetiException m, Functor m) => NetworkUUID -> Ip4Address -> ConfigData -> m ConfigData
• commitReservedIps :: (MonadError GanetiException m, Functor m, MonadLog m) => ClientId -> TempResState -> ConfigData -> m ConfigData
• listReservedIps :: ClientId -> TempResState -> Set IPv4Reservation

The main reservation state

Aliases to make types more meaningful:

The state data structure

Utility functions

DRBD functions

Other temporary resources

Functions common to all reservations

IDs

MAC addresses

DRBD secrets

LVs

IPv4 addresses