diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2024-02-13 22:52:01 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2024-02-13 22:54:01 -0800 |
| commit | ea2466724b80da6f2163d0a29def3090ca3a5618 (patch) | |
| tree | 54f13e51a94cbb32a94d9ca4eb3374bbff278427 /src/Text | |
| parent | a5b691a77e6cf250b1e82a5e6c5a4514e5fb1b6e (diff) | |
Shared.addPandocAttributes: use `wrapper` attribute, not `wrap`.
`wrap` is a standard HTML5 attribute.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 1c26e143f..0c58ad9fe 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -300,7 +300,9 @@ normalizeDate' s = fmap (formatTime defaultTimeLocale "%F") -- and 'Cm () Blocks' are instances of 'HasAttributes'. addPandocAttributes :: forall b . HasAttributes (Cm () b) => [(T.Text, T.Text)] -> b -> b -addPandocAttributes kvs bs = unCm . addAttributes kvs $ (Cm bs :: Cm () b) +addPandocAttributes [] bs = bs +addPandocAttributes kvs bs = + unCm . addAttributes (("wrapper","1"):kvs) $ (Cm bs :: Cm () b) -- | Generate infinite lazy list of markers for an ordered list, -- depending on list attributes. |