diff options
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
| -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. |