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

Rename this/that/these to delete/insert/replace for consistency with Patch

Browse Source
This commit is contained in:
joshvera 2016-10-11 11:52:49 -04:00
parent fbb6ddbff4
commit a9d216608f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/SourceSpan.hs
View File

@ -81,13 +81,13 @@ newtype SourceSpans = SourceSpans { unSourceSpans :: These SourceSpan SourceSpan
instance A.ToJSON SourceSpans where
toJSON (SourceSpans spans) = case spans of
(This span) -> A.object ["this" .= span]
(That span) -> A.object ["that" .= span]
(These span1 span2) -> A.object ["these" .= (span1, span2)]
(This span) -> A.object ["delete" .= span]
(That span) -> A.object ["insert" .= span]
(These span1 span2) -> A.object ["replace" .= (span1, span2)]
toEncoding (SourceSpans spans) = case spans of
(This span) -> A.pairs $ "this" .= span
(That span) -> A.pairs $ "that" .= span
(These span1 span2) -> A.pairs $ "these" .= (span1, span2)
(This span) -> A.pairs $ "delete" .= span
(That span) -> A.pairs $ "insert" .= span
(These span1 span2) -> A.pairs $ "replace" .= (span1, span2)
instance Arbitrary SourcePos where
arbitrary = SourcePos <$> arbitrary <*> arbitrary