github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 22:01:46 +03:00
Code Issues Projects Releases Wiki Activity

Revert "Define a Crosswalk instance for Patch."

Browse Source 
This reverts commit bdb9bccf6be16eacef8a7f745ef40e4a14a29397.
This commit is contained in:
Rob Rix 2017-05-10 16:05:27 -04:00
parent 09e93cf899
commit ddd4c552a8
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Patch.hs
View File

@ -16,7 +16,6 @@ module Patch
, patchType , patchType
) where ) where
import Data.Align
import Data.Functor.Listable import Data.Functor.Listable
import Data.These import Data.These
import Prologue import Prologue
@ -91,8 +90,3 @@ instance Listable1 Patch where
instance Listable a => Listable (Patch a) where instance Listable a => Listable (Patch a) where
tiers = tiers1 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