1
1
mirror of https://github.com/github/semantic.git synced 2024-12-27 00:44:57 +03:00

Split the diffs and show the rows.

This commit is contained in:
Rob Rix 2016-02-25 16:00:43 -07:00
parent 5fbffece19
commit e33cb1168e

View File

@ -12,7 +12,7 @@ import Renderer.Split
data JSON a = JSON { rows :: [Row (SplitDiff a Info)] }
json :: Renderer a String
json diff sources = ""
json diff (a, b) = show . JSON . fst $ splitDiffByLines diff (0, 0) (source a, source b)
instance Show (JSON a) where
show (JSON _) = "{" ++ "'rows':" ++ "[" ++ "]" ++ "}"