Bug#1023149: pandoc FTBFS on i386

[Adrian Bunk <bunk@debian.org>]

Source: pandoc
Version: 2.17.1.1-1
Severity: serious
Tags: ftbfs
X-Debbugs-Cc: Debian Haskell Group <pkg-haskell-maintainers@lists.alioth.debian.org>

https://buildd.debian.org/status/logs.php?pkg=pandoc&ver=2.17.1.1-1%2Bb3

...
[193 of 214] Compiling Text.Pandoc.Readers.EPUB

src/Text/Pandoc/Readers/EPUB.hs:79:40: error:
    • Local identifier ‘FilePath’ used as a type
    • In the type signature:
        parseSpineElem :: PandocMonad m =>
                          FilePath -> (FilePath, MimeType) -> m Pandoc
      In an equation for ‘archiveToEPUB’:
          archiveToEPUB os archive
            = do (root, content) <- getManifest archive
                 (coverId, meta) <- parseMeta content
                 (cover, items) <- parseManifest content coverId
                 ....
            where
                os'
                  = os
                      {readerExtensions = enableExtension
                                            Ext_raw_html (readerExtensions os)}
                parseSpineElem ::
                  PandocMonad m => FilePath -> (FilePath, MimeType) -> m Pandoc
                parseSpineElem (normalise -> r) (normalise -> path, mime)
                  = do doc <- mimeToReader mime r path
                       ....
                mimeToReader ::
                  PandocMonad m => MimeType -> FilePath -> FilePath -> m Pandoc
                ....
   |
79 |     parseSpineElem :: PandocMonad m => FilePath -> (FilePath, MimeType) -> m Pandoc
   |                                        ^^^^^^^^

src/Text/Pandoc/Readers/EPUB.hs:84:50: error:
    • Local identifier ‘FilePath’ used as a type
    • In the type signature:
        mimeToReader :: PandocMonad m =>
                        MimeType -> FilePath -> FilePath -> m Pandoc
      In an equation for ‘archiveToEPUB’:
          archiveToEPUB os archive
            = do (root, content) <- getManifest archive
                 (coverId, meta) <- parseMeta content
                 (cover, items) <- parseManifest content coverId
                 ....
            where
                os'
                  = os
                      {readerExtensions = enableExtension
                                            Ext_raw_html (readerExtensions os)}
                parseSpineElem ::
                  PandocMonad m => FilePath -> (FilePath, MimeType) -> m Pandoc
                parseSpineElem (normalise -> r) (normalise -> path, mime)
                  = do doc <- mimeToReader mime r path
                       ....
                mimeToReader ::
                  PandocMonad m => MimeType -> FilePath -> FilePath -> m Pandoc
                ....
   |
84 |     mimeToReader :: PandocMonad m => MimeType -> FilePath -> FilePath -> m Pandoc
   |                                                  ^^^^^^^^
-e: error: debian/hlibrary.setup build --builddir=dist-ghc returned exit code 1
...


The patch below workarounds the issue, which indicates that it might
be a bug in the compiler and not a problem in pandoc?

Short-term it might even be good enough to unblock migration of several
packages to testing.

--- debian/rules.old	2022-10-30 17:52:59.643347191 +0000
+++ debian/rules	2022-10-30 17:54:14.347251214 +0000
@@ -192,6 +192,10 @@
 DEB_SETUP_GHC_CONFIGURE_ARGS += --ghc-options="-optc--param -optcggc-min-expand=10 -O0"
 endif
 
+ifneq (,$(filter $(DEB_HOST_ARCH_CPU), i386))
+DEB_SETUP_GHC_CONFIGURE_ARGS += --ghc-options="-O0"
+endif
+
 DEB_SETUP_GHC_CONFIGURE_ARGS += $(if $(filter nocheck,$(DEB_BUILD_OPTIONS)),,-ftests)
 
 DEB_INSTALL_DOCS_ALL += README.md