github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 18:23:44 +03:00
Code Issues Projects Releases Wiki Activity

Fix docs.

Browse Source
This commit is contained in:
Rob Rix 2019-10-18 12:15:20 -04:00
parent 84a448ad4f
commit 6722f2f9da
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Edit.hs
View File

@ -13,7 +13,7 @@ import Data.Bitraversable
import Data.Functor.Classes
import GHC.Generics (Generic, Generic1)
-- | An operation to compare, insert, or delete an item.
-- | The deletion, insertion, or comparison of values.
data Edit a b
= Delete a
| Insert b
@ -21,7 +21,7 @@ data Edit a b
deriving (Eq, Foldable, Functor, Generic, Generic1, Ord, Show, Traversable)
-- | Return both sides of a patch.
-- | Return both sides of an edit.
edit :: (l -> a) -> (r -> a) -> (l -> r -> a) -> Edit l r -> a
edit delete insert compare = \case
Delete a -> delete a