Synnefo » snf-ganeti

{-

This program is free software; you can redistribute it and/or modify

it under the terms of the GNU General Public License as published by

import Ganeti.Objects

data AddressPool = AddressPool { network :: Network,

                                 reservations :: V.Vector Bool,

                                 extReservations :: V.Vector Bool }

-- | Checks the consistency of the network object. So far, only checks the

-- length of the reservation strings.

networkIsValid :: Network -> Bool

-- | Checks if two maybe strings are both nothing or of equal length.

sameLength :: Maybe String -> Maybe String -> Bool

getMap :: AddressPool -> String

getMap = V.toList . V.map mapPixel . allReservations

  where mapPixel c = if c then 'X' else '.'