Issue with Courier font

[hsyl20]

It was reported to me that the following code using Courier font produces invalid font output:

#!/usr/bin/env stack
-- stack --resolver lts-17.12 script --package HPDF
{-# LANGUAGE OverloadedStrings #-}

import Graphics.PDF

main :: IO ()
main = do
   Just courier <- mkStdFont Courier
   runPdf "test-pdf.pdf" standardDocInfo (PDFRect 0 0 (8.5*72) (11*72)) $ do
      page1 <- addPage Nothing
      newSection "Foo" Nothing Nothing $ do
         drawWithPage page1 $ do
            strokeColor black
            displayFormattedText (Rectangle (100 :+ 100) (300 :+ 300)) NormalParagraph (Font (PDFFont courier 12) black black)  $ do
               paragraph $ do
                  txt "for exAmple the 'A' chAr should be different"

I couldn't reproduce the issue. pdffonts reports an issue though:

❯ pdffonts test-pdf.pdf
Internal Error: xref num 971476492 not found but needed, try to reconstruct<0a>
name                                 type              encoding         emb sub uni object ID
------------------------------------ ----------------- ---------------- --- --- --- ---------
Courier                              Type 1            MacRoman         no  no  no  [none]

[hsyl20]

The font is perhaps not installed? On my system (ArchLinux) okular uses the font in /usr/share/fonts/Type1/cour.pfa which is provided by xorg-fonts-type1 package.