summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2023-02-09 07:21:40 +0100
committerAlbert Krewinkel <albert@zeitkraut.de>2023-02-09 08:15:13 +0100
commit9eee4a2582822f01cdc46d9576dd9ed17b135e2c (patch)
tree4d39c676acf827e663434cf712c7c81d6e6bdc78 /src
parent4edc02d3b5b4a297bf0cd9ac2b16bb85c2b15d00 (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.hs5
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).