Copy global error

This commit is contained in:
Jeroen Engels 2021-03-01 21:50:58 +01:00
parent 7f8b218399
commit 545a482f22

View File

@ -546,7 +546,7 @@ importCycleError moduleGraph edge =
findCycle moduleGraph edge findCycle moduleGraph edge
|> List.reverse |> List.reverse
in in
[ globalError [ elmReviewGlobalError
{ message = "Your module imports form a cycle" { message = "Your module imports form a cycle"
, details = , details =
[ printCycle cycle [ printCycle cycle
@ -730,7 +730,7 @@ duplicateModulesGlobalError duplicate =
|> List.map (\s -> "\n - " ++ s) |> List.map (\s -> "\n - " ++ s)
|> String.join "" |> String.join ""
in in
globalError elmReviewGlobalError
{ message = "Found several modules named `" ++ String.join "." duplicate.moduleName ++ "`" { message = "Found several modules named `" ++ String.join "." duplicate.moduleName ++ "`"
, details = , details =
[ "I found several modules with the name `" ++ String.join "." duplicate.moduleName ++ "`. Depending on how I choose to resolve this, I might give you different reports. Since this is a compiler error anyway, I require this problem to be solved. Please fix this then try running `elm-review` again." [ "I found several modules with the name `" ++ String.join "." duplicate.moduleName ++ "`. Depending on how I choose to resolve this, I might give you different reports. Since this is a compiler error anyway, I require this problem to be solved. Please fix this then try running `elm-review` again."
@ -3032,6 +3032,19 @@ errorForReadmeWithFix readmeKey info range fixes =
|> withFixes fixes |> withFixes fixes
elmReviewGlobalError : { message : String, details : List String } -> Error scope
elmReviewGlobalError { message, details } =
SpecifiedError
{ filePath = "GLOBAL ERROR"
, ruleName = ""
, message = message
, details = details
, range = { start = { row = 0, column = 0 }, end = { row = 0, column = 0 } }
, fixes = Nothing
, target = Review.Error.Global
}
globalError : { message : String, details : List String } -> Error scope globalError : { message : String, details : List String } -> Error scope
globalError { message, details } = globalError { message, details } =
SpecifiedError SpecifiedError