git.iko.soy/typeable/aeson
on master help sign in
Another TH test
commit750b49576ce43f1ec62bdcf8f35bd14b86520247 authorBryan O'Sullivan <bos@serpentine.com> dateThu 2 Jul 2015, 15:22 (11 years ago) parent9728e9a
2 files changed+7−1
compare with master
unifiedsplit
tests/Encoders.hs+5−1 tests/Properties.hs+2
tests/Encoders.hs+5−1
@@ -34,12 +34,16 @@ thNullaryParseJSON2ElemArray = $(mkParseJSON opts2ElemArray ''Nullary)
3434thNullaryToJSONTaggedObject :: Nullary -> Value
3535thNullaryToJSONTaggedObject = $(mkToJSON optsTaggedObject ''Nullary)
3636
37+thNullaryToEncodingTaggedObject :: Nullary -> Encoding
38+thNullaryToEncodingTaggedObject = $(mkToEncoding optsTaggedObject ''Nullary)
39+
3740thNullaryParseJSONTaggedObject :: Value -> Parser Nullary
3841thNullaryParseJSONTaggedObject = $(mkParseJSON optsTaggedObject ''Nullary)
3942
4043
4144thNullaryToJSONObjectWithSingleField :: Nullary -> Value
42−thNullaryToJSONObjectWithSingleField = $(mkToJSON optsObjectWithSingleField ''Nullary)
45+thNullaryToJSONObjectWithSingleField =
46+ $(mkToJSON optsObjectWithSingleField ''Nullary)
4347
4448thNullaryParseJSONObjectWithSingleField :: Value -> Parser Nullary
4549thNullaryParseJSONObjectWithSingleField = $(mkParseJSON optsObjectWithSingleField ''Nullary)
tests/Properties.hs+2
@@ -196,6 +196,8 @@ tests = [
196196 thNullaryToJSONString `sameAs` thNullaryToEncodingString
197197 , testProperty "Nullary2ElemArray" $
198198 thNullaryToJSON2ElemArray `sameAs` thNullaryToEncoding2ElemArray
199+ , testProperty "NullaryTaggedObject" $
200+ thNullaryToJSONTaggedObject `sameAs` thNullaryToEncodingTaggedObject
199201 ]
200202 ]
201203 ]