Revision b1e81520 htools/Ganeti/THH.hs
| b/htools/Ganeti/THH.hs | ||
|---|---|---|
| 10 | 10 |
|
| 11 | 11 |
{-
|
| 12 | 12 |
|
| 13 |
Copyright (C) 2011 Google Inc. |
|
| 13 |
Copyright (C) 2011, 2012 Google Inc.
|
|
| 14 | 14 |
|
| 15 | 15 |
This program is free software; you can redistribute it and/or modify |
| 16 | 16 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 717 | 717 |
fields_p <- mapM (paramFieldTypeInfo field_pfx) fields |
| 718 | 718 |
let decl_f = RecC name_f fields_f |
| 719 | 719 |
decl_p = RecC name_p fields_p |
| 720 |
let declF = DataD [] name_f [] [decl_f] [''Show, ''Read] |
|
| 721 |
declP = DataD [] name_p [] [decl_p] [''Show, ''Read] |
|
| 720 |
let declF = DataD [] name_f [] [decl_f] [''Show, ''Read, ''Eq]
|
|
| 721 |
declP = DataD [] name_p [] [decl_p] [''Show, ''Read, ''Eq]
|
|
| 722 | 722 |
ser_decls_f <- buildObjectSerialisation sname_f fields |
| 723 | 723 |
ser_decls_p <- buildPParamSerialisation sname_p fields |
| 724 | 724 |
fill_decls <- fillParam sname field_pfx fields |
Also available in: Unified diff