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

Add a Direction type.

Browse Source
This commit is contained in:
Rob Rix 2017-03-09 10:25:08 -05:00
parent aa01343a95
commit a2ef23491c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/SES/Myers.hs
View File

@ -18,6 +18,7 @@ data Snake = Snake { xy :: Endpoint, uv :: Endpoint }
newtype EditDistance = EditDistance { unEditDistance :: Int } newtype EditDistance = EditDistance { unEditDistance :: Int }
newtype Diagonal = Diagonal { unDiagonal :: Int } newtype Diagonal = Diagonal { unDiagonal :: Int }
newtype Endpoint = Endpoint { unEndpoint :: (Int, Int) } newtype Endpoint = Endpoint { unEndpoint :: (Int, Int) }
data Direction = Forward | Reverse
decompose :: MyersF a -> Myers a decompose :: MyersF a -> Myers a