For queries, take the correct base address of an IP block

Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Lisa Velden <velden@google.com>

diff --git a/src/Ganeti/Query/Network.hs b/src/Ganeti/Query/Network.hs
index 46b6a61..23818f6 100644 (file)
--- 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