Revision 5227de56 htools/Ganeti/Query/Common.hs

b/htools/Ganeti/Query/Common.hs
25 25

  
26 26
module Ganeti.Query.Common
27 27
  ( rsNoData
28
  , rsUnavail
28 29
  , rsNormal
29 30
  , rsMaybe
30 31
  , rsUnknown
......
66 67
rsNoData :: ResultEntry
67 68
rsNoData = ResultEntry RSNoData Nothing
68 69

  
70
-- | Helper for result for an entity which supports no such field.
71
rsUnavail :: ResultEntry
72
rsUnavail = ResultEntry RSUnavail Nothing
73

  
69 74
-- | Helper to declare a normal result.
70 75
rsNormal :: (JSON a) => a -> ResultEntry
71 76
rsNormal a = ResultEntry RSNormal $ Just (showJSON a)

Also available in: Unified diff