Merge pull request #5263 from commercialhaskell/better-debug-info

Better debug info for invariant violated
commercialhaskell · Apr 21, 2020 · e4ba0b4 · e4ba0b4
2 parents 6c72c37 + fffc0a4
commit e4ba0b4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Stack/Build/Execute.hs b/src/Stack/Build/Execute.hs
@@ -1783,7 +1783,7 @@ singleBuild ac@ActionContext {..} ee@ExecuteEnv {..} task@Task {..} installedMap
             [dp] -> do
                 liftIO $ atomically $ modifyTVar' tvar (Map.insert (dpGhcPkgId dp) dp)
                 return $ Just (dpGhcPkgId dp)
-            _ -> error "singleBuild: invariant violated: multiple results when describing installed package"
+            _ -> error $ "singleBuild: invariant violated: multiple results when describing installed package " ++ show (name, dps)
 
 -- | Get the build status of all the package executables. Do so by
 -- testing whether their expected output file exists, e.g.