From db75159a63a8b90801c272a25688cc06ba6e36ec Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 10 Aug 2016 15:50:39 -0400 Subject: [PATCH] :memo: the return value of rws. --- src/Data/RandomWalkSimilarity.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/RandomWalkSimilarity.hs b/src/Data/RandomWalkSimilarity.hs index dac16df23..35c61ebd6 100644 --- a/src/Data/RandomWalkSimilarity.hs +++ b/src/Data/RandomWalkSimilarity.hs @@ -28,7 +28,7 @@ rws :: (Eq (Record fields), Prologue.Foldable f, Functor f, Eq (f (Cofree f (Rec => (Cofree f (Record fields) -> Cofree f (Record fields) -> Maybe (Free (CofreeF f (Both (Record fields))) (Patch (Cofree f (Record fields))))) -- ^ A function which compares a pair of terms recursively, returning 'Just' their diffed value if appropriate, or 'Nothing' if they should not be compared. -> [Cofree f (Record fields)] -- ^ The list of old terms. -> [Cofree f (Record fields)] -- ^ The list of new terms. - -> [Free (CofreeF f (Both (Record fields))) (Patch (Cofree f (Record fields)))] + -> [Free (CofreeF f (Both (Record fields))) (Patch (Cofree f (Record fields)))] -- ^ The resulting list of similarity-matched diffs. rws compare as bs | null as, null bs = [] | null as = inserting <$> bs