github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00
Code Issues Projects Releases Wiki Activity

Add a smart constructor for LCS.

Browse Source
This commit is contained in:
Rob Rix 2017-03-10 11:45:32 -05:00
parent 3885f2df11
commit d64ecd672d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/SES/Myers.hs
View File

@ -100,6 +100,9 @@ decompose myers = case myers of
-- Smart constructors
lcs :: EditGraph a -> Myers [a]
lcs graph = M (LCS graph) `Then` return
findDPath :: EditGraph a -> Direction -> EditDistance -> Diagonal -> Myers Endpoint
findDPath graph direction d k = M (FindDPath graph direction d k) `Then` return