From 6694b800823dc08700145a8b211a8a04f4803170 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 3 Aug 2016 18:40:17 -0400 Subject: [PATCH] Add a smart constructor for RWS diffs. --- src/Algorithm.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Algorithm.hs b/src/Algorithm.hs index 500adb878..cf2a29cb7 100644 --- a/src/Algorithm.hs +++ b/src/Algorithm.hs @@ -24,3 +24,6 @@ recursively a b = wrap (Recursive a b pure) byIndex :: [Term leaf annotation] -> [Term leaf annotation] -> Algorithm leaf annotation [Diff leaf annotation] byIndex a b = wrap (ByIndex a b pure) + +bySimilarity :: [Term leaf annotation] -> [Term leaf annotation] -> Algorithm leaf annotation [Diff leaf annotation] +bySimilarity a b = wrap (ByRandomWalkSimilarity a b pure)