language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-30 15:21:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Report severity and custom titles in can::Problem

Browse source
This commit is contained in:
Richard Feldman 2021-09-02 20:53:43 -04:00
parent 71af5c5a1a
commit c711f0bbc7
2 changed files with 447 additions and 280 deletions
Download patch file Download diff file Expand all files Collapse all files

372
compiler/reporting/src/error/canonicalize.rs
View file

@ -3,23 +3,43 @@ use roc_module::ident::{Ident, Lowercase, ModuleName};
use roc_parse::parser::{Col, Row}; use roc_parse::parser::{Col, Row};
use roc_problem::can::PrecedenceProblem::BothNonAssociative; use roc_problem::can::PrecedenceProblem::BothNonAssociative;
use roc_problem::can::{BadPattern, FloatErrorKind, IntErrorKind, Problem, RuntimeError}; use roc_problem::can::{BadPattern, FloatErrorKind, IntErrorKind, Problem, RuntimeError};
use roc_region::all::Region; use roc_region::all::{Located, Region};
use std::path::PathBuf; use std::path::PathBuf;
use crate::report::{Annotation, Report, RocDocAllocator, RocDocBuilder}; use crate::report::{Annotation, Report, RocDocAllocator, RocDocBuilder, Severity};
use ven_pretty::DocAllocator; use ven_pretty::DocAllocator;
const SYNTAX_PROBLEM: &str = "SYNTAX PROBLEM";
const NAMING_PROBLEM: &str = "NAMING PROBLEM";
const UNRECOGNIZED_NAME: &str = "UNRECOGNIZED NAME";
const UNUSED_DEF: &str = "UNUSED DEFINITION";
const UNUSED_IMPORT: &str = "UNUSED IMPORT";
const UNUSED_ALIAS_PARAM: &str = "UNUSED TYPE ALIAS PARAMETER";
const UNUSED_ARG: &str = "UNUSED ARGUMENT";
const MISSING_DEFINITION: &str = "MISSING_DEFINITION";
const DUPLICATE_FIELD_NAME: &str = "DUPLICATE FIELD NAME";
const DUPLICATE_TAG_NAME: &str = "DUPLICATE TAG NAME";
const INVALID_UNICODE: &str = "INVALID UNICODE";
const CIRCULAR_DEF: &str = "CIRCULAR DEFINITION";
const DUPLICATE_NAME: &str = "DUPLICATE NAME";
const VALUE_NOT_EXPOSED: &str = "NOT EXPOSED";
const MODULE_NOT_IMPORTED: &str = "MODULE NOT IMPORTED";
pub fn can_problem<'b>( pub fn can_problem<'b>(
alloc: &'b RocDocAllocator<'b>, alloc: &'b RocDocAllocator<'b>,
filename: PathBuf, filename: PathBuf,
problem: Problem, problem: Problem,
) -> Report<'b> { ) -> Report<'b> {
let doc = match problem { let doc;
let title;
let severity;
match problem {
Problem::UnusedDef(symbol, region) => { Problem::UnusedDef(symbol, region) => {
let line = let line =
r#" then remove it so future readers of your code don't wonder why it is there."#; r#" then remove it so future readers of your code don't wonder why it is there."#;
alloc.stack(vec![ doc = alloc.stack(vec![
alloc alloc
.symbol_unqualified(symbol) .symbol_unqualified(symbol)
.append(alloc.reflow(" is not used anywhere in your code.")), .append(alloc.reflow(" is not used anywhere in your code.")),
@ -28,9 +48,13 @@ pub fn can_problem<'b>(
.reflow("If you didn't intend on using ") .reflow("If you didn't intend on using ")
.append(alloc.symbol_unqualified(symbol)) .append(alloc.symbol_unqualified(symbol))
.append(alloc.reflow(line)), .append(alloc.reflow(line)),
]) ]);
title = UNUSED_DEF.to_string();
severity = Severity::Warning;
} }
Problem::UnusedImport(module_id, region) => alloc.stack(vec![ Problem::UnusedImport(module_id, region) => {
doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("Nothing from "), alloc.reflow("Nothing from "),
alloc.module(module_id), alloc.module(module_id),
@ -42,8 +66,13 @@ pub fn can_problem<'b>(
alloc.module(module_id), alloc.module(module_id),
alloc.reflow(" isn't used, you don't need to import it."), alloc.reflow(" isn't used, you don't need to import it."),
]), ]),
]), ]);
Problem::ExposedButNotDefined(symbol) => alloc.stack(vec![
title = UNUSED_IMPORT.to_string();
severity = Severity::Warning;
}
Problem::ExposedButNotDefined(symbol) => {
doc = alloc.stack(vec![
alloc.symbol_unqualified(symbol).append( alloc.symbol_unqualified(symbol).append(
alloc.reflow(" is listed as exposed, but it isn't defined in this module."), alloc.reflow(" is listed as exposed, but it isn't defined in this module."),
), ),
@ -53,11 +82,15 @@ pub fn can_problem<'b>(
.append(alloc.reflow(", or by removing it from ")) .append(alloc.reflow(", or by removing it from "))
.append(alloc.keyword("exposes")) .append(alloc.keyword("exposes"))
.append(alloc.reflow(".")), .append(alloc.reflow(".")),
]), ]);
title = MISSING_DEFINITION.to_string();
severity = Severity::RuntimeError;
}
Problem::UnusedArgument(closure_symbol, argument_symbol, region) => { Problem::UnusedArgument(closure_symbol, argument_symbol, region) => {
let line = "\". Adding an underscore at the start of a variable name is a way of saying that the variable is not used."; let line = "\". Adding an underscore at the start of a variable name is a way of saying that the variable is not used.";
alloc.stack(vec![ doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.symbol_unqualified(closure_symbol), alloc.symbol_unqualified(closure_symbol),
alloc.reflow(" doesn't use "), alloc.reflow(" doesn't use "),
@ -76,10 +109,13 @@ pub fn can_problem<'b>(
alloc.symbol_unqualified(argument_symbol), alloc.symbol_unqualified(argument_symbol),
alloc.reflow(line), alloc.reflow(line),
]), ]),
]) ]);
title = UNUSED_ARG.to_string();
severity = Severity::Warning;
} }
Problem::PrecedenceProblem(BothNonAssociative(region, left_bin_op, right_bin_op)) => alloc Problem::PrecedenceProblem(BothNonAssociative(region, left_bin_op, right_bin_op)) => {
.stack(vec![ doc = alloc.stack(vec![
if left_bin_op.value == right_bin_op.value { if left_bin_op.value == right_bin_op.value {
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("Using more than one "), alloc.reflow("Using more than one "),
@ -102,11 +138,20 @@ pub fn can_problem<'b>(
]) ])
}, },
alloc.region(region), alloc.region(region),
]), ]);
Problem::UnsupportedPattern(BadPattern::UnderscoreInDef, region) => alloc.stack(vec![
title = SYNTAX_PROBLEM.to_string();
severity = Severity::RuntimeError;
}
Problem::UnsupportedPattern(BadPattern::UnderscoreInDef, region) => {
doc = alloc.stack(vec![
alloc.reflow("Underscore patterns are not allowed in definitions"), alloc.reflow("Underscore patterns are not allowed in definitions"),
alloc.region(region), alloc.region(region),
]), ]);
title = SYNTAX_PROBLEM.to_string();
severity = Severity::RuntimeError;
}
Problem::UnsupportedPattern(BadPattern::Unsupported(pattern_type), region) => { Problem::UnsupportedPattern(BadPattern::Unsupported(pattern_type), region) => {
use roc_parse::pattern::PatternType::*; use roc_parse::pattern::PatternType::*;
@ -127,60 +172,70 @@ pub fn can_problem<'b>(
alloc.reflow(" instead."), alloc.reflow(" instead."),
]; ];
alloc.stack(vec![ doc = alloc.stack(vec![
alloc alloc
.reflow("This pattern is not allowed in ") .reflow("This pattern is not allowed in ")
.append(alloc.reflow(this_thing)), .append(alloc.reflow(this_thing)),
alloc.region(region), alloc.region(region),
alloc.concat(suggestion), alloc.concat(suggestion),
]) ]);
title = SYNTAX_PROBLEM.to_string();
severity = Severity::RuntimeError;
} }
Problem::ShadowingInAnnotation { Problem::ShadowingInAnnotation {
original_region, original_region,
shadow, shadow,
} => pretty_runtime_error( } => {
alloc, doc = report_shadowing(alloc, original_region, shadow);
RuntimeError::Shadowing {
original_region,
shadow,
},
),
Problem::CyclicAlias(symbol, region, others) => {
let (doc, title) = crate::error::r#type::cyclic_alias(alloc, symbol, region, others);
return Report { title = DUPLICATE_NAME.to_string();
title, severity = Severity::RuntimeError;
filename, }
doc, Problem::CyclicAlias(symbol, region, others) => {
}; let answer = crate::error::r#type::cyclic_alias(alloc, symbol, region, others);
doc = answer.0;
title = answer.1;
severity = Severity::RuntimeError;
} }
Problem::PhantomTypeArgument { Problem::PhantomTypeArgument {
alias, alias,
variable_region, variable_region,
variable_name, variable_name,
} => alloc.stack(vec![ } => {
doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("The "), alloc.reflow("The "),
alloc.type_variable(variable_name), alloc.type_variable(variable_name),
alloc.reflow(" type variable is not used in the "), alloc.reflow(" type parameter is not used in the "),
alloc.symbol_unqualified(alias), alloc.symbol_unqualified(alias),
alloc.reflow(" alias definition:"), alloc.reflow(" alias definition:"),
]), ]),
alloc.region(variable_region), alloc.region(variable_region),
alloc.reflow("Roc does not allow unused type parameters!"), alloc.reflow("Roc does not allow unused type alias parameters!"),
// TODO add link to this guide section // TODO add link to this guide section
alloc.tip().append(alloc.reflow( alloc.tip().append(alloc.reflow(
"If you want an unused type parameter (a so-called \"phantom type\"), \ "If you want an unused type parameter (a so-called \"phantom type\"), \
read the guide section on phantom data.", read the guide section on phantom values.",
)), )),
]), ]);
Problem::BadRecursion(entries) => to_circular_def_doc(alloc, &entries),
title = UNUSED_ALIAS_PARAM.to_string();
severity = Severity::RuntimeError;
}
Problem::BadRecursion(entries) => {
doc = to_circular_def_doc(alloc, &entries);
title = CIRCULAR_DEF.to_string();
severity = Severity::RuntimeError;
}
Problem::DuplicateRecordFieldValue { Problem::DuplicateRecordFieldValue {
field_name, field_name,
field_region, field_region,
record_region, record_region,
replaced_region, replaced_region,
} => alloc.stack(vec![ } => {
doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This record defines the "), alloc.reflow("This record defines the "),
alloc.record_field(field_name.clone()), alloc.record_field(field_name.clone()),
@ -204,7 +259,11 @@ pub fn can_problem<'b>(
alloc.record_field(field_name), alloc.record_field(field_name),
alloc.reflow(" definitions from this record."), alloc.reflow(" definitions from this record."),
]), ]),
]), ]);
title = DUPLICATE_FIELD_NAME.to_string();
severity = Severity::Warning;
}
Problem::InvalidOptionalValue { Problem::InvalidOptionalValue {
field_name, field_name,
field_region, field_region,
@ -223,7 +282,8 @@ pub fn can_problem<'b>(
field_region, field_region,
record_region, record_region,
replaced_region, replaced_region,
} => alloc.stack(vec![ } => {
doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This record type defines the "), alloc.reflow("This record type defines the "),
alloc.record_field(field_name.clone()), alloc.record_field(field_name.clone()),
@ -247,13 +307,18 @@ pub fn can_problem<'b>(
alloc.record_field(field_name), alloc.record_field(field_name),
alloc.reflow(" definitions from this record type."), alloc.reflow(" definitions from this record type."),
]), ]),
]), ]);
title = DUPLICATE_FIELD_NAME.to_string();
severity = Severity::Warning;
}
Problem::DuplicateTag { Problem::DuplicateTag {
tag_name, tag_name,
tag_union_region, tag_union_region,
tag_region, tag_region,
replaced_region, replaced_region,
} => alloc.stack(vec![ } => {
doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This tag union type defines the "), alloc.reflow("This tag union type defines the "),
alloc.tag_name(tag_name.clone()), alloc.tag_name(tag_name.clone()),
@ -277,16 +342,28 @@ pub fn can_problem<'b>(
alloc.tag_name(tag_name), alloc.tag_name(tag_name),
alloc.reflow(" definitions from this tag union type."), alloc.reflow(" definitions from this tag union type."),
]), ]),
]), ]);
title = DUPLICATE_TAG_NAME.to_string();
severity = Severity::Warning;
}
Problem::SignatureDefMismatch { Problem::SignatureDefMismatch {
ref annotation_pattern, ref annotation_pattern,
ref def_pattern, ref def_pattern,
} => alloc.stack(vec![ } => {
alloc.reflow("This annotation does not match the definition immediately following it:"), doc = alloc.stack(vec![
alloc.reflow(
"This annotation does not match the definition immediately following it:",
),
alloc.region(Region::span_across(annotation_pattern, def_pattern)), alloc.region(Region::span_across(annotation_pattern, def_pattern)),
alloc.reflow("Is it a typo? If not, put either a newline or comment between them."), alloc.reflow("Is it a typo? If not, put either a newline or comment between them."),
]), ]);
Problem::InvalidAliasRigid { alias_name, region } => alloc.stack(vec![
title = NAMING_PROBLEM.to_string();
severity = Severity::RuntimeError;
}
Problem::InvalidAliasRigid { alias_name, region } => {
doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This pattern in the definition of "), alloc.reflow("This pattern in the definition of "),
alloc.symbol_unqualified(alias_name), alloc.symbol_unqualified(alias_name),
@ -300,8 +377,13 @@ pub fn can_problem<'b>(
alloc.type_variable("value".into()), alloc.type_variable("value".into()),
alloc.reflow(" can occur in this position."), alloc.reflow(" can occur in this position."),
]), ]),
]), ]);
Problem::InvalidHexadecimal(region) => alloc.stack(vec![
title = SYNTAX_PROBLEM.to_string();
severity = Severity::RuntimeError;
}
Problem::InvalidHexadecimal(region) => {
doc = alloc.stack(vec![
alloc.reflow("This unicode code point is invalid:"), alloc.reflow("This unicode code point is invalid:"),
alloc.region(region), alloc.region(region),
alloc.concat(vec![ alloc.concat(vec![
@ -312,13 +394,23 @@ pub fn can_problem<'b>(
alloc.text("."), alloc.text("."),
]), ]),
alloc.reflow(r"Learn more about working with unicode in roc at TODO"), alloc.reflow(r"Learn more about working with unicode in roc at TODO"),
]), ]);
Problem::InvalidUnicodeCodePt(region) => alloc.stack(vec![
title = INVALID_UNICODE.to_string();
severity = Severity::RuntimeError;
}
Problem::InvalidUnicodeCodePt(region) => {
doc = alloc.stack(vec![
alloc.reflow("This unicode code point is invalid:"), alloc.reflow("This unicode code point is invalid:"),
alloc.region(region), alloc.region(region),
alloc.reflow("Learn more about working with unicode in roc at TODO"), alloc.reflow("Learn more about working with unicode in roc at TODO"),
]), ]);
Problem::InvalidInterpolation(region) => alloc.stack(vec![
title = INVALID_UNICODE.to_string();
severity = Severity::RuntimeError;
}
Problem::InvalidInterpolation(region) => {
doc = alloc.stack(vec![
alloc.reflow("This string interpolation is invalid:"), alloc.reflow("This string interpolation is invalid:"),
alloc.region(region), alloc.region(region),
alloc.concat(vec![ alloc.concat(vec![
@ -329,14 +421,25 @@ pub fn can_problem<'b>(
alloc.text("."), alloc.text("."),
]), ]),
alloc.reflow(r"Learn more about string interpolation at TODO"), alloc.reflow(r"Learn more about string interpolation at TODO"),
]), ]);
Problem::RuntimeError(runtime_error) => pretty_runtime_error(alloc, runtime_error),
title = SYNTAX_PROBLEM.to_string();
severity = Severity::RuntimeError;
}
Problem::RuntimeError(runtime_error) => {
let answer = pretty_runtime_error(alloc, runtime_error);
doc = answer.0;
title = answer.1.to_string();
severity = Severity::RuntimeError;
}
}; };
Report { Report {
title: "SYNTAX PROBLEM".to_string(), title,
filename, filename,
doc, doc,
severity,
} }
} }
@ -353,6 +456,7 @@ fn to_invalid_optional_value_report<'b>(
title: "BAD OPTIONAL VALUE".to_string(), title: "BAD OPTIONAL VALUE".to_string(),
filename, filename,
doc, doc,
severity: Severity::RuntimeError,
} }
} }
@ -666,26 +770,11 @@ where
chomped chomped
} }
fn pretty_runtime_error<'b>( fn report_shadowing<'b>(
alloc: &'b RocDocAllocator<'b>, alloc: &'b RocDocAllocator<'b>,
runtime_error: RuntimeError, original_region: Region,
shadow: Located<Ident>,
) -> RocDocBuilder<'b> { ) -> RocDocBuilder<'b> {
match runtime_error {
RuntimeError::VoidValue => {
// is used to communicate to the compiler that
// a branch is unreachable; this should never reach a user
unreachable!("")
}
RuntimeError::UnresolvedTypeVar | RuntimeError::ErroneousType => {
// only generated during layout generation
unreachable!("")
}
RuntimeError::Shadowing {
original_region,
shadow,
} => {
let line = r#"Since these variables have the same name, it's easy to use the wrong one on accident. Give one of them a new name."#; let line = r#"Since these variables have the same name, it's easy to use the wrong one on accident. Give one of them a new name."#;
alloc.stack(vec![ alloc.stack(vec![
@ -698,12 +787,43 @@ fn pretty_runtime_error<'b>(
alloc.region(shadow.region), alloc.region(shadow.region),
alloc.reflow(line), alloc.reflow(line),
]) ])
}
fn pretty_runtime_error<'b>(
alloc: &'b RocDocAllocator<'b>,
runtime_error: RuntimeError,
) -> (RocDocBuilder<'b>, &'static str) {
let doc;
let title;
match runtime_error {
RuntimeError::VoidValue => {
// is used to communicate to the compiler that
// a branch is unreachable; this should never reach a user
unreachable!("");
}
RuntimeError::UnresolvedTypeVar | RuntimeError::ErroneousType => {
// only generated during layout generation
unreachable!("");
}
RuntimeError::Shadowing {
original_region,
shadow,
} => {
doc = report_shadowing(alloc, original_region, shadow);
title = DUPLICATE_NAME;
} }
RuntimeError::LookupNotInScope(loc_name, options) => { RuntimeError::LookupNotInScope(loc_name, options) => {
not_found(alloc, loc_name.region, &loc_name.value, "value", options) doc = not_found(alloc, loc_name.region, &loc_name.value, "value", options);
title = UNRECOGNIZED_NAME;
}
RuntimeError::CircularDef(entries) => {
doc = to_circular_def_doc(alloc, &entries);
title = CIRCULAR_DEF;
} }
RuntimeError::CircularDef(entries) => to_circular_def_doc(alloc, &entries),
RuntimeError::MalformedPattern(problem, region) => { RuntimeError::MalformedPattern(problem, region) => {
use roc_parse::ast::Base; use roc_parse::ast::Base;
use roc_problem::can::MalformedPatternProblem::*; use roc_problem::can::MalformedPatternProblem::*;
@ -716,7 +836,10 @@ fn pretty_runtime_error<'b>(
MalformedBase(Base::Octal) => " octal integer ", MalformedBase(Base::Octal) => " octal integer ",
MalformedBase(Base::Decimal) => " integer ", MalformedBase(Base::Decimal) => " integer ",
BadIdent(bad_ident) => { BadIdent(bad_ident) => {
return to_bad_ident_pattern_report(alloc, bad_ident, region) title = NAMING_PROBLEM;
doc = to_bad_ident_pattern_report(alloc, bad_ident, region);
return (doc, title);
} }
Unknown => " ", Unknown => " ",
QualifiedIdentifier => " qualified ", QualifiedIdentifier => " qualified ",
@ -732,7 +855,7 @@ fn pretty_runtime_error<'b>(
), ),
}; };
alloc.stack(vec![ doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This"), alloc.reflow("This"),
alloc.text(name), alloc.text(name),
@ -740,7 +863,9 @@ fn pretty_runtime_error<'b>(
]), ]),
alloc.region(region), alloc.region(region),
tip, tip,
]) ]);
title = SYNTAX_PROBLEM;
} }
RuntimeError::UnsupportedPattern(_) => { RuntimeError::UnsupportedPattern(_) => {
todo!("unsupported patterns are currently not parsed!") todo!("unsupported patterns are currently not parsed!")
@ -749,7 +874,8 @@ fn pretty_runtime_error<'b>(
module_name, module_name,
ident, ident,
region, region,
} => alloc.stack(vec![ } => {
doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("The "), alloc.reflow("The "),
alloc.module_name(module_name), alloc.module_name(module_name),
@ -758,21 +884,31 @@ fn pretty_runtime_error<'b>(
alloc.reflow(" value:"), alloc.reflow(" value:"),
]), ]),
alloc.region(region), alloc.region(region),
]), ]);
title = VALUE_NOT_EXPOSED;
}
RuntimeError::ModuleNotImported { RuntimeError::ModuleNotImported {
module_name, module_name,
imported_modules, imported_modules,
region, region,
} => module_not_found(alloc, region, &module_name, imported_modules), } => {
doc = module_not_found(alloc, region, &module_name, imported_modules);
title = MODULE_NOT_IMPORTED;
}
RuntimeError::InvalidPrecedence(_, _) => { RuntimeError::InvalidPrecedence(_, _) => {
// do nothing, reported with PrecedenceProblem // do nothing, reported with PrecedenceProblem
unreachable!() unreachable!();
} }
RuntimeError::MalformedIdentifier(_box_str, bad_ident, surroundings) => { RuntimeError::MalformedIdentifier(_box_str, bad_ident, surroundings) => {
to_bad_ident_expr_report(alloc, bad_ident, surroundings) doc = to_bad_ident_expr_report(alloc, bad_ident, surroundings);
title = SYNTAX_PROBLEM;
} }
RuntimeError::MalformedTypeName(_box_str, surroundings) => alloc.stack(vec![ RuntimeError::MalformedTypeName(_box_str, surroundings) => {
doc = alloc.stack(vec![
alloc.reflow(r"I am confused by this type name:"), alloc.reflow(r"I am confused by this type name:"),
alloc.region(surroundings), alloc.region(surroundings),
alloc.concat(vec![ alloc.concat(vec![
@ -783,8 +919,13 @@ fn pretty_runtime_error<'b>(
alloc.parser_suggestion("Http.Request.Request"), alloc.parser_suggestion("Http.Request.Request"),
alloc.reflow("."), alloc.reflow("."),
]), ]),
]), ]);
RuntimeError::MalformedClosure(_) => todo!(""),
title = SYNTAX_PROBLEM;
}
RuntimeError::MalformedClosure(_) => {
todo!("");
}
RuntimeError::InvalidFloat(sign @ FloatErrorKind::PositiveInfinity, region, _raw_str) RuntimeError::InvalidFloat(sign @ FloatErrorKind::PositiveInfinity, region, _raw_str)
| RuntimeError::InvalidFloat(sign @ FloatErrorKind::NegativeInfinity, region, _raw_str) => { | RuntimeError::InvalidFloat(sign @ FloatErrorKind::NegativeInfinity, region, _raw_str) => {
let tip = alloc let tip = alloc
@ -797,7 +938,7 @@ fn pretty_runtime_error<'b>(
"small" "small"
}; };
alloc.stack(vec![ doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This float literal is too "), alloc.reflow("This float literal is too "),
alloc.text(big_or_small), alloc.text(big_or_small),
@ -812,14 +953,16 @@ fn pretty_runtime_error<'b>(
alloc.text(format!("{:e}", f64::MAX)), alloc.text(format!("{:e}", f64::MAX)),
]), ]),
tip, tip,
]) ]);
title = SYNTAX_PROBLEM;
} }
RuntimeError::InvalidFloat(FloatErrorKind::Error, region, _raw_str) => { RuntimeError::InvalidFloat(FloatErrorKind::Error, region, _raw_str) => {
let tip = alloc let tip = alloc
.tip() .tip()
.append(alloc.reflow("Learn more about number literals at TODO")); .append(alloc.reflow("Learn more about number literals at TODO"));
alloc.stack(vec![ doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This float literal contains an invalid digit:"), alloc.reflow("This float literal contains an invalid digit:"),
]), ]),
@ -828,7 +971,9 @@ fn pretty_runtime_error<'b>(
alloc.reflow("Floating point literals can only contain the digits 0-9, or use scientific notation 10e4"), alloc.reflow("Floating point literals can only contain the digits 0-9, or use scientific notation 10e4"),
]), ]),
tip, tip,
]) ]);
title = SYNTAX_PROBLEM;
} }
RuntimeError::InvalidInt(error @ IntErrorKind::InvalidDigit, base, region, _raw_str) RuntimeError::InvalidInt(error @ IntErrorKind::InvalidDigit, base, region, _raw_str)
| RuntimeError::InvalidInt(error @ IntErrorKind::Empty, base, region, _raw_str) => { | RuntimeError::InvalidInt(error @ IntErrorKind::Empty, base, region, _raw_str) => {
@ -871,7 +1016,7 @@ fn pretty_runtime_error<'b>(
.tip() .tip()
.append(alloc.reflow("Learn more about number literals at TODO")); .append(alloc.reflow("Learn more about number literals at TODO"));
alloc.stack(vec![ doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This "), alloc.reflow("This "),
alloc.text(name), alloc.text(name),
@ -887,7 +1032,9 @@ fn pretty_runtime_error<'b>(
alloc.text("."), alloc.text("."),
]), ]),
tip, tip,
]) ]);
title = SYNTAX_PROBLEM;
} }
RuntimeError::InvalidInt(error_kind @ IntErrorKind::Underflow, _base, region, _raw_str) RuntimeError::InvalidInt(error_kind @ IntErrorKind::Underflow, _base, region, _raw_str)
| RuntimeError::InvalidInt(error_kind @ IntErrorKind::Overflow, _base, region, _raw_str) => { | RuntimeError::InvalidInt(error_kind @ IntErrorKind::Overflow, _base, region, _raw_str) => {
@ -901,7 +1048,7 @@ fn pretty_runtime_error<'b>(
.tip() .tip()
.append(alloc.reflow("Learn more about number literals at TODO")); .append(alloc.reflow("Learn more about number literals at TODO"));
alloc.stack(vec![ doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This integer literal is too "), alloc.reflow("This integer literal is too "),
alloc.text(big_or_small), alloc.text(big_or_small),
@ -910,21 +1057,36 @@ fn pretty_runtime_error<'b>(
alloc.region(region), alloc.region(region),
alloc.reflow("Roc uses signed 64-bit integers, allowing values between −9_223_372_036_854_775_808 and 9_223_372_036_854_775_807."), alloc.reflow("Roc uses signed 64-bit integers, allowing values between −9_223_372_036_854_775_808 and 9_223_372_036_854_775_807."),
tip, tip,
]) ]);
title = SYNTAX_PROBLEM;
} }
RuntimeError::InvalidOptionalValue { RuntimeError::InvalidOptionalValue {
field_name, field_name,
field_region, field_region,
record_region, record_region,
} => to_invalid_optional_value_report_help(alloc, field_name, field_region, record_region), } => {
RuntimeError::InvalidRecordUpdate { region } => alloc.stack(vec![ doc = to_invalid_optional_value_report_help(
alloc,
field_name,
field_region,
record_region,
);
title = SYNTAX_PROBLEM;
}
RuntimeError::InvalidRecordUpdate { region } => {
doc = alloc.stack(vec![
alloc.concat(vec![ alloc.concat(vec![
alloc.reflow("This expression cannot be updated"), alloc.reflow("This expression cannot be updated"),
alloc.reflow(":"), alloc.reflow(":"),
]), ]),
alloc.region(region), alloc.region(region),
alloc.reflow("Only variables can be updated with record update syntax."), alloc.reflow("Only variables can be updated with record update syntax."),
]), ]);
title = SYNTAX_PROBLEM;
}
RuntimeError::InvalidHexadecimal(region) => { RuntimeError::InvalidHexadecimal(region) => {
todo!( todo!(
"TODO runtime error for an invalid hexadecimal number in a \\u(...) code point at region {:?}", "TODO runtime error for an invalid hexadecimal number in a \\u(...) code point at region {:?}",
@ -949,12 +1111,20 @@ fn pretty_runtime_error<'b>(
RuntimeError::NonExhaustivePattern => { RuntimeError::NonExhaustivePattern => {
unreachable!("not currently reported (but can blow up at runtime)") unreachable!("not currently reported (but can blow up at runtime)")
} }
RuntimeError::ExposedButNotDefined(symbol) => alloc.stack(vec![alloc RuntimeError::ExposedButNotDefined(symbol) => {
doc = alloc.stack(vec![alloc
.symbol_unqualified(symbol) .symbol_unqualified(symbol)
.append(alloc.reflow(" was listed as exposed in ")) .append(alloc.reflow(" was listed as exposed in "))
.append(alloc.module(symbol.module_id())) .append(alloc.module(symbol.module_id()))
.append(alloc.reflow(", but it was not defined anywhere in that module."))]), .append(
alloc.reflow(", but it was not defined anywhere in that module."),
)]);
title = MISSING_DEFINITION;
} }
}
(doc, title)
} }
fn to_circular_def_doc<'b>( fn to_circular_def_doc<'b>(

27
compiler/reporting/src/error/type.rs
View file

@ -19,6 +19,15 @@ pub fn type_problem<'b>(
) -> Report<'b> { ) -> Report<'b> {
use solve::TypeError::*; use solve::TypeError::*;
fn report<'b>(title: String, doc: RocDocBuilder<'_>, filename: PathBuf) -> Report<'_> {
Report {
title,
filename,
doc,
severity: Severity::RuntimeError,
}
}
match problem { match problem {
BadExpr(region, category, found, expected) => { BadExpr(region, category, found, expected) => {
to_expr_report(alloc, filename, region, category, found, expected) to_expr_report(alloc, filename, region, category, found, expected)
@ -39,11 +48,7 @@ pub fn type_problem<'b>(
.append(alloc.symbol_unqualified(symbol))]) .append(alloc.symbol_unqualified(symbol))])
.append(alloc.reflow(".")); .append(alloc.reflow("."));
Report { report(title, doc, filename)
title,
filename,
doc,
}
} }
BadType(type_problem) => { BadType(type_problem) => {
use roc_types::types::Problem::*; use roc_types::types::Problem::*;
@ -84,20 +89,12 @@ pub fn type_problem<'b>(
"TOO FEW TYPE ARGUMENTS".to_string() "TOO FEW TYPE ARGUMENTS".to_string()
}; };
Report { report(title, doc, filename)
title,
filename,
doc,
}
} }
CyclicAlias(symbol, region, others) => { CyclicAlias(symbol, region, others) => {
let (doc, title) = cyclic_alias(alloc, symbol, region, others); let (doc, title) = cyclic_alias(alloc, symbol, region, others);
Report { report(title, doc, filename)
title,
filename,
doc,
}
} }
other => panic!("unhandled bad type: {:?}", other), other => panic!("unhandled bad type: {:?}", other),