Revision 11e90588 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