Revision 9ba02574 autotools/convert-constants

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