diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2023-02-09 07:21:40 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2023-02-09 08:15:13 +0100 |
| commit | 9eee4a2582822f01cdc46d9576dd9ed17b135e2c (patch) | |
| tree | 4d39c676acf827e663434cf712c7c81d6e6bdc78 /src | |
| parent | 4edc02d3b5b4a297bf0cd9ac2b16bb85c2b15d00 (diff) | |
Lua: add field `chunk_template` to WriterOptions objects [API change]
The PathTemplate type exported from Text.Pandoc.Chunks is now an
instance of the ToJSON and FromJSON classes.
Closes: #8607
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Chunks.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Chunks.hs b/src/Text/Pandoc/Chunks.hs index 2447deb72..bd34cc6d5 100644 --- a/src/Text/Pandoc/Chunks.hs +++ b/src/Text/Pandoc/Chunks.hs @@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TupleSections #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleContexts #-} @@ -27,9 +26,11 @@ module Text.Pandoc.Chunks , tocToList , SecInfo(..) ) where + import Text.Pandoc.Definition import Text.Pandoc.Shared (makeSections, stringify, inlineListToIdentifier) import Text.Pandoc.Walk (Walkable(..)) +import Data.Aeson (FromJSON, ToJSON) import Data.Text (Text) import Text.Printf (printf) import Data.Maybe (fromMaybe, isNothing) @@ -257,7 +258,7 @@ resolvePathTemplate (PathTemplate templ) chunknum headingText ident secnum = -- @"section-1.2-introduction.html"@. newtype PathTemplate = PathTemplate { unPathTemplate :: Text } - deriving (Show, IsString, Data, Typeable, Generic) + deriving (Show, IsString, Data, Typeable, Generic, ToJSON, FromJSON) -- | A part of a document (typically a chapter or section, or -- the part of a section before its subsections). |
