From a599a903d7560d9e408cb297c72546bd2df47869 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Wed, 14 Jun 2017 09:33:13 -0400
Subject: [PATCH] :fire: the Step synonym.

---
 src/SES/Myers.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs
index 7b29442b9..a5d3e9ef4 100644
--- a/src/SES/Myers.hs
+++ b/src/SES/Myers.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE GADTs, ImplicitParams, MultiParamTypeClasses, ScopedTypeVariables #-}
 module SES.Myers
 ( EditScript
-, Step
 , Myers
 , EditGraph(..)
 , Distance(..)
@@ -23,9 +22,7 @@ import Prologue hiding (for, error)
 -- | An edit script, i.e. a sequence of changes/copies of elements.
 type EditScript a b = [These a b]
 
-type Step a b = State (MyersState a b)
-
-type Myers a b = (Step a b)
+type Myers a b = State (MyersState a b)
 
 -- | Notionally the cartesian product of two sequences, represented as a simple wrapper around those arrays holding those sequences’ elements for O(1) lookups.
 data EditGraph a b = EditGraph { as :: !(Array.Array Int a), bs :: !(Array.Array Int b) }