pandoc-server 0.1.0.7 → 0.1.0.8

raw patch · 2 files changed

+13/−4 lines, 2 filesdep ~pandocPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: pandoc

API changes (from Hackage documentation)

Files

• pandoc-server.cabal +2/−2
• src/Text/Pandoc/Server.hs +11/−2

@@ -1,6 +1,6 @@ cabal-version:   2.4 name:            pandoc-server-version:         0.1.0.7+version:         0.1.0.8 build-type:      Simple license:         GPL-2.0-or-later license-file:    COPYING.md@@ -49,7 +49,7 @@  library   import:        common-options-  build-depends: pandoc                >= 3.3      && < 3.4,+  build-depends: pandoc                >= 3.4      && < 3.5,                  pandoc-types          >= 1.22     && < 1.24,                  containers            >= 0.6.0.1  && < 0.8,                  aeson                 >= 2.0      && < 2.3,

@@ -21,6 +21,7 @@ import Text.Pandoc.Writers.Shared (lookupMetaString) import Text.Pandoc.Citeproc (processCitations) import Text.Pandoc.Highlighting (lookupHighlightingStyle)+import Text.Pandoc.Chunks (PathTemplate(..)) import qualified Text.Pandoc.UTF8 as UTF8 import Data.Text (Text) import qualified Data.Text as T@@ -302,8 +303,8 @@                         , readerStripComments = optStripComments opts                         } -    let writeropts =-          def{ writerExtensions = writerExts+    let writeropts = WriterOptions+             { writerExtensions = writerExts              , writerTabStop = optTabStop opts              , writerWrapText = optWrap opts              , writerColumns = optColumns opts@@ -327,14 +328,22 @@              , writerListings = optListings opts              , writerHighlightStyle = hlStyle              , writerSetextHeaders = optSetextHeaders opts+             , writerListTables = optListTables opts              , writerEpubSubdirectory = T.pack $ optEpubSubdirectory opts              , writerEpubMetadata = T.pack <$> optEpubMetadata opts              , writerEpubFonts = optEpubFonts opts+             , writerEpubTitlePage    = optEpubTitlePage opts              , writerSplitLevel = optSplitLevel opts+             , writerChunkTemplate = maybe (PathTemplate "%s-%i.html")+                                         PathTemplate+                                         (optChunkTemplate opts)              , writerTOCDepth = optTOCDepth opts              , writerReferenceDoc = optReferenceDoc opts              , writerReferenceLocation = optReferenceLocation opts+             , writerFigureCaptionPosition = optFigureCaptionPosition opts+             , writerTableCaptionPosition = optTableCaptionPosition opts              , writerPreferAscii = optAscii opts+             , writerLinkImages = optLinkImages opts              }      let reader = case readerSpec of