@@ -47,7 +47,7 @@ import Reporting.Doc ((<>))
4747import qualified Reporting.Doc as D
4848import qualified Reporting.Error.Json as Json
4949import qualified Reporting.Exit.Help as Help
50−import qualified Reporting.Problem as Problem
50+import qualified Reporting.Error as Error
5151
5252
5353
@@ -373,7 +373,7 @@ data Make
373373
374374
375375data BuildProblem
376− = BuildModuleProblems Problem.Problem [Problem.Problem]
376+ = BuildModuleProblems Error.Module [Error.Module]
377377 | BuildProjectProblem BuildProjectProblem
378378
379379
@@ -804,7 +804,7 @@ makeToReport make =
804804
805805
806806 BuildModuleProblems p ps ->
807− error "TODO MakeCannotBuild" p ps
807+ Help.compilerReport p ps
808808
809809 MakeCannotLoadArtifacts ->
810810 error "TODO MakeCannotLoadArtifacts"