Signed-off-by: Klaus Aehlig <[email protected]> --- src/Ganeti/Query/Network.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Ganeti/Query/Network.hs b/src/Ganeti/Query/Network.hs index 46b6a61..23818f6 100644 --- a/src/Ganeti/Query/Network.hs +++ b/src/Ganeti/Query/Network.hs @@ -172,7 +172,7 @@ getReservations _ Nothing = [] getReservations net (Just pool) = map snd . filter fst $ zip (BA.toList . apReservations $ pool) - (iterate nextIp4Address $ ip4netAddr net) + (iterate nextIp4Address $ ip4BaseAddr net) -- | Computes the external reservations as string for a network. getExtReservationsString :: Network -> ResultEntry -- 2.6.0.rc2.230.g3dd15c0
