Revision a5c198eb src/Ganeti/Network.hs
b/src/Ganeti/Network.hs | ||
---|---|---|
41 | 41 |
import qualified Data.Vector.Unboxed as V |
42 | 42 |
|
43 | 43 |
import Ganeti.Objects |
44 |
import Ganeti.Utils (b64StringToBitString) |
|
44 | 45 |
|
45 | 46 |
-- | An address pool, holding a network plus internal and external |
46 | 47 |
-- reservations. |
... | ... | |
75 | 76 |
-- | Converts a maybe bit string to a bit vector. Returns an empty bit vector on |
76 | 77 |
-- nothing. |
77 | 78 |
maybeStr2BitVec :: Maybe String -> V.Vector Bool |
78 |
maybeStr2BitVec (Just s) = bitStringToBitVector s |
|
79 |
maybeStr2BitVec (Just s) = bitStringToBitVector $ b64StringToBitString s
|
|
79 | 80 |
maybeStr2BitVec Nothing = V.fromList ([]::[Bool]) |
80 | 81 |
|
81 | 82 |
-- | Converts a string to a bit vector. The character '0' is interpreted |
Also available in: Unified diff