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

Improve diff tree JSON output

Browse Source
This commit is contained in:
Timothy Clem 2017-12-13 13:43:59 -08:00
parent 0e986cfab2
commit 161002486f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Rendering/JSON.hs
View File

@ -6,7 +6,8 @@ module Rendering.JSON
import Data.Aeson (ToJSON, toJSON, object, (.=))
import Data.Aeson as A
import Data.Blob
import Data.Bifoldable (biList)
import Data.Bifunctor
import Data.Bifoldable
import Data.Bifunctor.Join
import Data.Language
import qualified Data.Map as Map
@ -15,10 +16,10 @@ import GHC.Generics
-- | Render a diff to a string representing its JSON.
renderJSONDiff :: ToJSON a => BlobPair -> a -> Map.Map Text Value
renderJSONDiff blobs diff = Map.fromList
[ ("diff", toJSON diff)
, ("paths", toJSON (blobPath <$> (biList . runJoin) blobs))
]
renderJSONDiff blobs diff = Map.fromList $ ("diff", toJSON diff) : renderJSONBlobPair
where
renderJSONBlobPair = biList (bimap (render "before") (render "after") (runJoin blobs))
render key Blob{..} = (key, toJSON (object [ "path" .= blobPath, "language" .= blobLanguage ]))
data File a = File { filePath :: FilePath, fileLanguage :: Maybe Language, fileContent :: a }
deriving (Generic, Show)