Merge pull request #6047 from commercialhaskell/re6046

Re #6046 Fix S-6739 error

Author: mpilgrem

doc/maintainers/stack_errors.md

@@ -333,7 +333,7 @@ to take stock of the errors that Stack itself can raise, by reference to the
         [S-7868] | TaskCycleBug PackageIdentifier
         [S-8923] | PackageIdMissingBug PackageIdentifier
         [S-7371] | AllInOneBuildBug
-        [S-6739] | MulipleResultsBug PackageName [DumpPackage]
+        [S-6739] | MultipleResultsBug PackageName [DumpPackage]
         [S-3121] | TemplateHaskellNotFoundBug
         [S-6901] | HaddockIndexNotFound
         [S-5452] | ShowBuildErrorBug

src/Stack/Build/Execute.hs

@@ -2088,7 +2088,7 @@ singleBuild ac@ActionContext {..} ee@ExecuteEnv {..} task@Task {..} installedMap
       [dp] -> do
         liftIO $ atomically $ modifyTVar' tvar (Map.insert (dpGhcPkgId dp) dp)
         pure $ Just (dpGhcPkgId dp)
-      _ -> throwM $ MulipleResultsBug name dps
+      _ -> throwM $ MultipleResultsBug name dps
 
 -- | Get the build status of all the package executables. Do so by
 -- testing whether their expected output file exists, e.g.

src/Stack/Types/Build.hs

@@ -135,7 +135,7 @@ data BuildException
   | TaskCycleBug PackageIdentifier
   | PackageIdMissingBug PackageIdentifier
   | AllInOneBuildBug
-  | MulipleResultsBug PackageName [DumpPackage]
+  | MultipleResultsBug PackageName [DumpPackage]
   | TemplateHaskellNotFoundBug
   | HaddockIndexNotFound
   | ShowBuildErrorBug
@@ -344,7 +344,7 @@ instance Exception BuildException where
     ++ show ident
   displayException AllInOneBuildBug = bugReport "[S-7371]"
     "Cannot have an all-in-one build that also has a final build step."
-  displayException (MulipleResultsBug name dps) = bugReport "[S-6739]"
+  displayException (MultipleResultsBug name dps) = bugReport "[S-6739]" $
     "singleBuild: multiple results when describing installed package "
     ++ show (name, dps)
   displayException TemplateHaskellNotFoundBug = bugReport "[S-3121]"