From ddd4c552a8ff373d53e10b3ce2f907d2edf4a2b2 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Wed, 10 May 2017 16:05:27 -0400
Subject: [PATCH] Revert "Define a Crosswalk instance for Patch."

This reverts commit bdb9bccf6be16eacef8a7f745ef40e4a14a29397.
---
 src/Patch.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/src/Patch.hs b/src/Patch.hs
index 402783dbc..9c212d11c 100644
--- a/src/Patch.hs
+++ b/src/Patch.hs
@@ -16,7 +16,6 @@ module Patch
 , patchType
 ) where
 
-import Data.Align
 import Data.Functor.Listable
 import Data.These
 import Prologue
@@ -91,8 +90,3 @@ instance Listable1 Patch where
 
 instance Listable a => Listable (Patch a) where
   tiers = tiers1
-
-instance Crosswalk Patch where
-  crosswalk f (Replace a b) = alignWith (these Delete Insert Replace) (f a) (f b)
-  crosswalk f (Insert b) = Insert <$> f b
-  crosswalk f (Delete a) = Delete <$> f a