Revision 596470db src/Ganeti/Query/Network.hs
| b/src/Ganeti/Query/Network.hs | ||
|---|---|---|
| 158 | 158 |
-- simply iterating over the reservations string. |
| 159 | 159 |
getReservations :: Maybe Ip4Network -> String -> [Ip4Address] |
| 160 | 160 |
getReservations Nothing = \_ -> [] |
| 161 |
getReservations (Just $ Ip4Network net _) =
|
|
| 161 |
getReservations (Just (Ip4Network net _)) =
|
|
| 162 | 162 |
reverse . |
| 163 | 163 |
fst . |
| 164 | 164 |
foldl' (\(accu, addr) c -> |
Also available in: Unified diff