Revision c92b4671 src/Ganeti/Query/Job.hs

b/src/Ganeti/Query/Job.hs
29 29
  , wantArchived
30 30
  ) where
31 31

  
32
import qualified Data.Map as Map
33 32
import qualified Text.JSON as J
34 33

  
35 34
import Ganeti.BasicTypes
......
139 138

  
140 139
-- | The node fields map.
141 140
fieldsMap :: FieldMap JobId RuntimeData
142
fieldsMap =
143
  Map.fromList $ map (\v@(f, _, _) -> (fdefName f, v)) jobFields
141
fieldsMap = fieldListToFieldMap jobFields

Also available in: Unified diff