-- | The docstring for the node role. Note that we use 'reverse' in
-- order to keep the same order as Python.
nodeRoleDoc :: String
nodeRoleDoc =
  "Node role; " ++
  intercalate ", "
   (map (\nrole ->
          "\"" ++ nodeRoleToRaw nrole ++ "\" for " ++ roleDescription nrole)
   (reverse [minBound..maxBound]))
nodeRoleDoc :: String
nodeRoleDoc =
  "Node role; " ++
  intercalate ", "
   (map (\nrole ->
          "\"" ++ nodeRoleToRaw nrole ++ "\" for " ++ roleDescription nrole)
   (reverse [minBound..maxBound]))
nodeRoleDoc =
  "Node role; " ++
  intercalate ", "
   (map (\nrole ->
          "\"" ++ nodeRoleToRaw nrole ++ "\" for " ++ roleDescription nrole)
   (reverse [minBound..maxBound]))