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

Check whether opaque implements ability using store

Browse source
This commit is contained in:
Ayaz Hafiz 2022-07-25 13:14:21 -04:00
parent 8659ddc684
commit 6b9c1cb690
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
4 changed files with 58 additions and 84 deletions
Download patch file Download diff file Expand all files Collapse all files

32
crates/compiler/solve/src/ability.rs
View file

@ -33,12 +33,8 @@ pub enum UnderivableReason {
#[derive(PartialEq, Debug, Clone)]
pub enum Unfulfilled {
/// Incomplete custom implementation for an ability by an opaque type.
Incomplete {
typ: Symbol,
ability: Symbol,
missing_members: Vec<Loc<Symbol>>,
},
/// No claimed implementation of an ability for an opaque type.
OpaqueDoesNotImplement { typ: Symbol, ability: Symbol },
/// Cannot derive implementation of an ability for a structural type.
AdhocUnderivable {
typ: ErrorType,
@ -352,28 +348,14 @@ impl ObligationCache<'_> {
}
let ImplKey { opaque, ability } = impl_key;
let has_declared_impl = self
.abilities_store
.has_declared_implementation(opaque, ability);
let members_of_ability = self.abilities_store.members_of_ability(ability).unwrap();
let mut missing_members = Vec::new();
for &member in members_of_ability {
if self
.abilities_store
.get_implementation(roc_can::abilities::ImplKey {
opaque,
ability_member: member,
})
.is_none()
{
let root_data = self.abilities_store.member_def(member).unwrap();
missing_members.push(Loc::at(root_data.region, member));
}
}
let obligation_result = if !missing_members.is_empty() {
Err(Unfulfilled::Incomplete {
let obligation_result = if !has_declared_impl {
Err(Unfulfilled::OpaqueDoesNotImplement {
typ: opaque,
ability,
missing_members,
})
} else {
Ok(())