From 84a0c70a7c1a3fcdbeaaf1390b36ad40095de990 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 3 Feb 2017 15:54:28 -0500 Subject: [PATCH] Use the FeatureVector type synonym. --- test/Data/RandomWalkSimilarity/Spec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Data/RandomWalkSimilarity/Spec.hs b/test/Data/RandomWalkSimilarity/Spec.hs index 79c01aefe..8dad90650 100644 --- a/test/Data/RandomWalkSimilarity/Spec.hs +++ b/test/Data/RandomWalkSimilarity/Spec.hs @@ -49,5 +49,5 @@ spec = parallel $ do | otherwise = if ((==) `on` category . extract) a b then Just (replacing a b) else Nothing copying :: Functor f => Cofree f (Record fields) -> Free (CofreeF f (Both (Record fields))) (Patch (Cofree f (Record fields))) copying = cata wrap . fmap pure - decorate :: SyntaxTerm leaf '[Category] -> SyntaxTerm leaf '[Vector.Vector Double, Category] + decorate :: SyntaxTerm leaf '[Category] -> SyntaxTerm leaf '[FeatureVector, Category] decorate = defaultFeatureVectorDecorator (category . headF)