github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-27 00:44:57 +03:00
Code Issues Projects Releases Wiki Activity

Stub in rendering of rows.

Browse Source
This commit is contained in:
Rob Rix 2016-02-25 16:03:34 -07:00
parent e33cb1168e
commit 6d56fabcbf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Renderer/JSON.hs
View File

@ -15,4 +15,5 @@ json :: Renderer a String
json diff (a, b) = show . JSON . fst $ splitDiffByLines diff (0, 0) (source a, source b)
instance Show (JSON a) where
show (JSON _) = "{" ++ "'rows':" ++ "[" ++ "]" ++ "}"
show (JSON rows) = "{'rows':[" ++ mconcat (showRow <$> rows) ++ "]}"
where showRow (Row left right) = "{'left':{},'right':{}}"