Revision 3c3c796e htools/Ganeti/THH.hs
| b/htools/Ganeti/THH.hs | ||
|---|---|---|
| 583 | 583 |
let name = mkName sname |
| 584 | 584 |
fields_d <- mapM (fieldTypeInfo field_pfx) fields |
| 585 | 585 |
let decl_d = RecC name fields_d |
| 586 |
let declD = DataD [] name [] [decl_d] [''Show, ''Read] |
|
| 586 |
let declD = DataD [] name [] [decl_d] [''Show, ''Read, ''Eq]
|
|
| 587 | 587 |
ser_decls <- buildObjectSerialisation sname fields |
| 588 | 588 |
return $ declD:ser_decls |
| 589 | 589 |
|
Also available in: Unified diff