Import fileAnIssue from Dhall.Docs.Util (#2547)

* Import fileAnIssue from Dhall.Docs.Util

* Fix typo

Author: kukimik

dhall-docs/src/Dhall/Docs/Core.hs

@@ -44,6 +44,7 @@ import Dhall.Docs.Embedded
 import Dhall.Docs.Html
 import Dhall.Docs.Markdown
 import Dhall.Docs.Store
+import Dhall.Docs.Util            (fileAnIssue)
 import Dhall.Parser
     ( Header (..)
     , ParseError (..)
@@ -439,26 +440,6 @@ addHtmlExt :: Path Rel File -> Path Rel File
 addHtmlExt relFile =
     Data.Maybe.fromMaybe (fileAnIssue "addHtmlExt") $ Path.addExtension ".html" relFile
 
--- | If you're wondering the GitHub query params for issue creation:
--- https://docs.github.com/en/github/managing-your-work-on-github/about-automation-for-issues-and-pull-requests-with-query-parameters
-fileAnIssue :: Text -> a
-fileAnIssue titleName =
-    error $ "\ESC[1;31mError\ESC[0m Documentation generator bug\n\n" <>
-
-            "Explanation: This error message means that there is a bug in the " <>
-            "Dhall Documentation generator. You didn't did anything wrong, but " <>
-            "if you would like to see this problem fixed then you should report " <>
-            "the bug at:\n\n" <>
-
-            "https://github.com/dhall-lang/dhall-haskell/issues/new?labels=dhall-docs,bug\n\n" <>
-
-            "explaining your issue and add \"" <> Data.Text.unpack titleName <> "\" as error code " <>
-            "so we can find the proper location in the source code where the error happened\n\n" <>
-
-            "Please, also include your package in the issue. It can be in:\n\n" <>
-            "* A compressed archive (zip, tar, etc)\n" <>
-            "* A git repository, preferably with a commit reference"
-
 {-| Generate all of the docs for a package. This function does all the `IO ()`
     related tasks to call `generateDocsPure`
 -}

dhall-docs/src/Dhall/Docs/Util.hs

@@ -12,7 +12,7 @@ fileAnIssue titleName =
     error $ "\ESC[1;31mError\ESC[0m Documentation generator bug\n\n" <>
 
             "Explanation: This error message means that there is a bug in the " <>
-            "Dhall Documentation generator. You didn't did anything wrong, but " <>
+            "Dhall Documentation generator. You didn't do anything wrong, but " <>
             "if you would like to see this problem fixed then you should report " <>
             "the bug at:\n\n" <>