Revision 9ba02574

b/autotools/convert-constants
231 231
                                     value[k], all_items))
232 232
  elif isinstance(value, tuple):
233 233
    tvs = [HaskellTypeVal(elem) for elem in value]
234
    # Custom rule for special cluster verify error tuples
235
    if name.startswith("CV_E") and len(value) == 3 and tvs[1][0] is not None:
236
      cv_ename = hs_name + "Code"
237
      lines.append("-- | Special cluster verify code %s" % name)
238
      lines.append("%s :: %s" % (cv_ename, tvs[1][0]))
239
      lines.append("%s = %s" % (cv_ename, tvs[1][1]))
240
      lines.append("")
234 241
    if compat.all(e is not None for e in tvs):
235 242
      ttypes = ", ".join(e[0] for e in tvs)
236 243
      tvals = FormatListElems(all_items, pfx_name, value, [e[1] for e in tvs])

Also available in: Unified diff