diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs index 9a9348b35..2fccd4343 100644 --- a/src/SES/Myers.hs +++ b/src/SES/Myers.hs @@ -18,6 +18,7 @@ data Snake = Snake { xy :: Endpoint, uv :: Endpoint } newtype EditDistance = EditDistance { unEditDistance :: Int } newtype Diagonal = Diagonal { unDiagonal :: Int } newtype Endpoint = Endpoint { unEndpoint :: (Int, Int) } +data Direction = Forward | Reverse decompose :: MyersF a -> Myers a