From d64ecd672d58bde387db2b55d2e5da3030f59aef Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Fri, 10 Mar 2017 11:45:32 -0500
Subject: [PATCH] Add a smart constructor for LCS.

---
 src/SES/Myers.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs
index 6e9969a9e..fd8b9ea25 100644
--- a/src/SES/Myers.hs
+++ b/src/SES/Myers.hs
@@ -100,6 +100,9 @@ decompose myers = case myers of
 
 -- Smart constructors
 
+lcs :: EditGraph a -> Myers [a]
+lcs graph = M (LCS graph) `Then` return
+
 findDPath :: EditGraph a -> Direction -> EditDistance -> Diagonal -> Myers Endpoint
 findDPath graph direction d k = M (FindDPath graph direction d k) `Then` return