withIndexLink :: Doc -> Doc -> Doc
withIndexLink href msg =
  stack
    [ msg,
      "\nFor more information, see:",
      indent 2 (ppr errorIndexUrl <> "#" <> href)
    ]
withIndexLink :: Doc -> Doc -> Doc
withIndexLink href msg =
  stack
    [ msg,
      "\nFor more information, see:",
      indent 2 (ppr errorIndexUrl <> "#" <> href)
    ]
withIndexLink href msg =
  stack
    [ msg,
      "\nFor more information, see:",
      indent 2 (ppr errorIndexUrl <> "#" <> href)
    ]