language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-07-24 06:55:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Effectful function in docs

Browse source
This commit is contained in:
Agus Zubiaga 2024-10-17 22:38:23 -03:00
parent 28f35edb2c
commit 8a65617704
No known key found for this signature in database
2 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

20
crates/docs/src/lib.rs
View file

@ -10,6 +10,7 @@ use roc_load::docs::{ModuleDocumentation, RecordField};
use roc_load::{ExecutionMode, LoadConfig, LoadedModule, LoadingProblem, Threading};
use roc_module::symbol::{Interns, ModuleId, Symbol};
use roc_packaging::cache::{self, RocCacheDir};
use roc_parse::ast::FunctionArrow;
use roc_parse::ident::{parse_ident, Accessor, Ident};
use roc_parse::keyword;
use roc_parse::state::State;
@ -827,7 +828,11 @@ fn type_annotation_to_html(
type_annotation_to_html(indent_level, buf, extension, true);
}
TypeAnnotation::Function { args, output } => {
TypeAnnotation::Function {
args,
arrow,
output,
} => {
let mut paren_is_open = false;
let mut peekable_args = args.iter().peekable();
@ -858,7 +863,10 @@ fn type_annotation_to_html(
buf.push(' ');
}
buf.push_str("-> ");
match arrow {
FunctionArrow::Effectful => buf.push_str("=> "),
FunctionArrow::Pure => buf.push_str("-> "),
}
let mut next_indent_level = indent_level;
@ -1029,9 +1037,11 @@ fn should_be_multiline(type_ann: &TypeAnnotation) -> bool {
.iter()
.any(|tag| tag.values.iter().any(should_be_multiline))
}
TypeAnnotation::Function { args, output } => {
args.len() > 2 || should_be_multiline(output) || args.iter().any(should_be_multiline)
}
TypeAnnotation::Function {
args,
arrow: _,
output,
} => args.len() > 2 || should_be_multiline(output) || args.iter().any(should_be_multiline),
TypeAnnotation::ObscuredTagUnion => false,
TypeAnnotation::ObscuredRecord => false,
TypeAnnotation::BoundVariable(_) => false,