diff options
author | Ryan Scott <ryan.gl.scott@gmail.com> | 2016-11-03 14:01:54 -0400 |
---|---|---|
committer | Ryan Scott <ryan.gl.scott@gmail.com> | 2016-11-03 14:01:54 -0400 |
commit | ec22bacdd625b04d28228dd5522d59d0bc8b1152 (patch) | |
tree | 30aaa1c604213ae77009b142a3955beacf111256 /testsuite/tests/th/T12788_Lib.hs | |
parent | eaa348238bc6ea6a553240334602647ee48f8cf5 (diff) | |
download | haskell-ec22bacdd625b04d28228dd5522d59d0bc8b1152.tar.gz |
Add test for #12788
Commit bce99086e9f54909f51ff5a74cb8c666083bb021 (#12584) fixed #12788. Let's
add a test to make sure it stays fixed.
Diffstat (limited to 'testsuite/tests/th/T12788_Lib.hs')
-rw-r--r-- | testsuite/tests/th/T12788_Lib.hs | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/testsuite/tests/th/T12788_Lib.hs b/testsuite/tests/th/T12788_Lib.hs new file mode 100644 index 0000000000..2924eef5fb --- /dev/null +++ b/testsuite/tests/th/T12788_Lib.hs @@ -0,0 +1,22 @@ +module T12788_Lib where + +import Language.Haskell.TH + +data Options = Options + { fieldLabelModifier :: String -> String + , constructorTagModifier :: String -> String + , allNullaryToStringTag :: Bool + , omitNothingFields :: Bool + , sumEncoding :: SumEncoding + , unwrapUnaryRecords :: Bool + } + +data SumEncoding = + TaggedObject { tagFieldName :: String + , contentsFieldName :: String + } + | ObjectWithSingleField + | TwoElemArray + +deriveJSON :: Options -> Name -> Q [Dec] +deriveJSON _ _ = return [] |