From e2b4b654234b1c28ed590473ec31340507fc1147 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 10 Mar 2017 13:51:46 -0500 Subject: [PATCH] Derive Eq & Show instances for some of the types. --- src/SES/Myers.hs | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs index 0d97daf1f..416d7de83 100644 --- a/src/SES/Myers.hs +++ b/src/SES/Myers.hs @@ -35,9 +35,16 @@ data EditGraph a = EditGraph { as :: !(Vector.Vector a), bs :: !(Vector.Vector a data Snake = Snake { xy :: Endpoint, uv :: Endpoint } newtype EditDistance = EditDistance { unEditDistance :: Int } + deriving (Eq, Show) + newtype Diagonal = Diagonal { unDiagonal :: Int } + deriving (Eq, Show) + data Endpoint = Endpoint { x :: !Int, y :: !Int } + deriving (Eq, Show) + data Direction = Forward | Reverse + deriving (Eq, Show) -- Evaluation