Revision c92b4671 src/Ganeti/Query/Export.hs

b/src/Ganeti/Query/Export.hs
30 30
  ) where
31 31

  
32 32
import Control.Monad (liftM)
33
import qualified Data.Map as Map
34 33

  
35 34
import Ganeti.Objects
36 35
import Ganeti.Rpc
......
65 64

  
66 65
-- | The node fields map.
67 66
fieldsMap :: FieldMap Node Runtime
68
fieldsMap =
69
  Map.fromList $ map (\v@(f, _, _) -> (fdefName f, v)) exportFields
67
fieldsMap = fieldListToFieldMap exportFields
70 68

  
71 69
-- | Collect live data from RPC query if enabled.
72 70
--

Also available in: Unified diff