github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 05:58:34 +03:00
Code Issues Projects Releases Wiki Activity

Derive Eq & Show instances for some of the types.

Browse Source
This commit is contained in:
Rob Rix 2017-03-10 13:51:46 -05:00
parent 8aea2f6d0f
commit e2b4b65423
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/SES/Myers.hs
View File

@ -35,9 +35,16 @@ data EditGraph a = EditGraph { as :: !(Vector.Vector a), bs :: !(Vector.Vector a
data Snake = Snake { xy :: Endpoint, uv :: Endpoint } data Snake = Snake { xy :: Endpoint, uv :: Endpoint }
newtype EditDistance = EditDistance { unEditDistance :: Int } newtype EditDistance = EditDistance { unEditDistance :: Int }
deriving (Eq, Show)
newtype Diagonal = Diagonal { unDiagonal :: Int } newtype Diagonal = Diagonal { unDiagonal :: Int }
deriving (Eq, Show)
data Endpoint = Endpoint { x :: !Int, y :: !Int } data Endpoint = Endpoint { x :: !Int, y :: !Int }
deriving (Eq, Show)
data Direction = Forward | Reverse data Direction = Forward | Reverse
deriving (Eq, Show)
-- Evaluation -- Evaluation