Revision d5b2753a src/Ganeti/Query/Network.hs

b/src/Ganeti/Query/Network.hs
27 27 
  ( getGroupConnection
28 28 
  , getNetworkUuid
29 29 
  , instIsConnected
30 
  , Runtime(..)
30 
  , Runtime
31 31 
  , fieldsMap
32 
  , collectLiveData
32 33 
  ) where
33 34 

  		





  34
  35
  
    
-- FIXME: everything except Runtime(..) and fieldsMap


  		





  ......




  145
  146
  
    
  let net = find (\n -> name == fromNonEmpty (networkName n))


  		





  146
  147
  
    
               ((Map.elems . fromContainer . configNetworks) cfg)


  		





  147
  148
  
    
  in fmap networkUuid net


  		





  
  149
  
    

  		





  
  150
  
    
-- | Dummy function for collecting live data (which networks don't have).


  		





  
  151
  
    
collectLiveData :: Bool -> ConfigData -> [Network] -> IO [(Network, Runtime)]


  		





  
  152
  
    
collectLiveData _ _ = return . map (\n -> (n, Runtime))


  		












Also available in:
  Unified diff