Commit 3c3c796e authored by Iustin Pop's avatar Iustin Pop
Browse files

Enable Eq instances for TH-built objects



This is needed for the next patch.
Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarRené Nussbaumer <rn@google.com>
parent 9fdd3d0f
......@@ -583,7 +583,7 @@ buildObject sname field_pfx fields = do
let name = mkName sname
fields_d <- mapM (fieldTypeInfo field_pfx) fields
let decl_d = RecC name fields_d
let declD = DataD [] name [] [decl_d] [''Show, ''Read]
let declD = DataD [] name [] [decl_d] [''Show, ''Read, ''Eq]
ser_decls <- buildObjectSerialisation sname fields
return $ declD:ser_decls
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment