@@ -31,11 +31,11 @@ import Text.Pandoc.Options (TopLevelDivision (TopLevelDefault),
31 ReferenceLocation (EndOfDocument),
31 ReferenceLocation (EndOfDocument),
32 ObfuscationMethod (NoObfuscation),
32 ObfuscationMethod (NoObfuscation),
33 CiteMethod (Citeproc))
33 CiteMethod (Citeproc))
34−
34+import Text.Pandoc.Shared (camelCaseToHyphenated)
35#ifdef DERIVE_JSON_VIA_TH
35#ifdef DERIVE_JSON_VIA_TH
36−import Data.Aeson.TH (deriveJSON, defaultOptions)
36+import Data.Aeson.TH (deriveJSON, defaultOptions, Options(..))
38−import Data.Aeson (FromJSON (..), ToJSON (..),
38+import Data.Aeson (FromJSON (..), ToJSON (..), Options(..)
39 defaultOptions, genericToEncoding)
39 defaultOptions, genericToEncoding)
@@ -195,13 +195,17 @@ defaultOpts = Opt
195-- see https://github.com/jgm/pandoc/pull/4083
195-- see https://github.com/jgm/pandoc/pull/4083
196-- using generic deriving caused long compilation times
196-- using generic deriving caused long compilation times
197$(deriveJSON defaultOptions ''LineEnding)
197$(deriveJSON defaultOptions ''LineEnding)
198−$(deriveJSON defaultOptions ''Opt)
198+$(deriveJSON
199+ defaultOptions{ fieldLabelModifier =
200+ camelCaseToHyphenated . drop 3 } ''Opt)
200instance ToJSON LineEnding where
202instance ToJSON LineEnding where
201 toEncoding = genericToEncoding defaultOptions
203 toEncoding = genericToEncoding defaultOptions
202instance FromJSON LineEnding
204instance FromJSON LineEnding
204instance ToJSON Opt where
206instance ToJSON Opt where
205− toEncoding = genericToEncoding defaultOptions
207+ toEncoding = genericToEncoding
208+ defaultOptions{ fieldLabelModifier =
209+ camelCaseToHyphenated . drop 3 }
206instance FromJSON Opt
210instance FromJSON Opt