Revision cdd495ae htools/Ganeti/THH.hs

b/htools/Ganeti/THH.hs
541 541 
                               fields
542 542 
                    return $ NormalC (mkName cname) fields')
543 543 
            cons
544 
  let declD = DataD [] (mkName name) [] decl_d [''Show, ''Read]
544 
  let declD = DataD [] (mkName name) [] decl_d [''Show, ''Read, ''Eq]
545 545 
  (savesig, savefn) <- genSaveLuxiOp cons
546 546 
  req_defs <- declareSADT "LuxiReq" .
547 547 
              map (\(str, _) -> ("Req" ++ str, mkName ("luxiReq" ++ str))) $

Also available in: Unified diff