Revision 5b11f8db htools/Ganeti/Query/Node.hs

b/htools/Ganeti/Query/Node.hs
76 76 
nodeRoleDoc :: String
77 77 
nodeRoleDoc =
78 78 
  "Node role; " ++
79 
  (intercalate ", " $
80 
   map (\role ->
79 
  intercalate ", "
80 
   (map (\role ->
81 81 
          "\"" ++ nodeRoleToRaw role ++ "\" for " ++ roleDescription role)
82 82 
   (reverse [minBound..maxBound]))
83 83 

  		












Also available in:
  Unified diff