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

D-paths are reported as endpoints.

Browse Source
This commit is contained in:
Rob Rix 2017-03-09 10:24:37 -05:00
parent 911e03f761
commit aa01343a95
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/SES/Myers.hs
View File

@ -9,7 +9,7 @@ import Prologue
data MyersF a where data MyersF a where
SES :: [a] -> [a] -> MyersF [These a a] SES :: [a] -> [a] -> MyersF [These a a]
MiddleSnake :: Vector.Vector a -> Vector.Vector a -> MyersF (Snake, EditDistance) MiddleSnake :: Vector.Vector a -> Vector.Vector a -> MyersF (Snake, EditDistance)
FindDPath :: EditDistance -> Diagonal -> MyersF Int FindDPath :: EditDistance -> Diagonal -> MyersF Endpoint
type Myers = Freer MyersF type Myers = Freer MyersF
@ -26,4 +26,4 @@ decompose myers = case myers of
MiddleSnake _ _ -> return (Snake (Endpoint (0, 0)) (Endpoint (0, 0)), EditDistance 0) MiddleSnake _ _ -> return (Snake (Endpoint (0, 0)) (Endpoint (0, 0)), EditDistance 0)
FindDPath _ _ -> return 0 FindDPath _ _ -> return (Endpoint (0, 0))