Revision cccbacf2 src/Ganeti/Query/Network.hs
b/src/Ganeti/Query/Network.hs | ||
---|---|---|
46 | 46 |
import Ganeti.Query.Common |
47 | 47 |
import Ganeti.Query.Types |
48 | 48 |
import Ganeti.Types |
49 |
import Ganeti.Utils (b64StringToBitString) |
|
49 | 50 |
|
50 | 51 |
-- | There is no actual runtime. |
51 | 52 |
data Runtime = Runtime |
... | ... | |
175 | 176 |
getExtReservationsString :: Network -> ResultEntry |
176 | 177 |
getExtReservationsString net = |
177 | 178 |
let addrs = getReservations (networkNetwork net) |
178 |
(fromMaybe "" $ networkExtReservations net) |
|
179 |
(b64StringToBitString . fromMaybe "" $ networkExtReservations net)
|
|
179 | 180 |
in rsNormal . intercalate ", " $ map show addrs |
180 | 181 |
|
181 | 182 |
-- | Dummy function for collecting live data (which networks don't have). |
Also available in: Unified diff