1
1
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00

Update the RWS spec.

This commit is contained in:
Rob Rix 2017-06-15 09:44:46 -04:00
parent 1f4eb8e475
commit 46cfee6e28

View File

@ -45,7 +45,7 @@ spec = parallel $ do
where canCompare a b = headF a == headF b
decorate :: SyntaxTerm leaf '[Category] -> SyntaxTerm leaf '[Maybe FeatureVector, Category]
decorate :: SyntaxTerm leaf '[Category] -> SyntaxTerm leaf '[FeatureVector, Category]
decorate = defaultFeatureVectorDecorator (category . headF)
diffThese = these deleting inserting replacing