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

🔥 Spans.

Browse Source
This commit is contained in:
Rob Rix 2017-06-24 10:59:09 -04:00
parent d87aa706aa
commit ed140c9937
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Data/Span.hs
View File

@ -8,7 +8,6 @@ module Data.Span where
import Data.Aeson ((.=), (.:))
import qualified Data.Aeson as A
import Data.Semigroup
import Data.These
import Prologue
import Test.LeanCheck
@ -52,20 +51,6 @@ instance A.FromJSON Span where
o .: "start" <*>
o .: "end"
newtype Spans = Spans { unSpans :: These Span Span }
deriving (Eq, Show)
instance A.ToJSON Spans where
toJSON (Spans spans) = case spans of
(This span) -> A.object ["delete" .= span]
(That span) -> A.object ["insert" .= span]
(These span1 span2) -> A.object ["replace" .= (span1, span2)]
toEncoding (Spans spans) = case spans of
(This span) -> A.pairs $ "delete" .= span
(That span) -> A.pairs $ "insert" .= span
(These span1 span2) -> A.pairs $ "replace" .= (span1, span2)
instance Listable Pos where
tiers = cons2 Pos