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

Abstract JSON over a type variable.

Browse Source
This commit is contained in:
Rob Rix 2016-02-25 16:00:09 -07:00
parent 2da6a3527b
commit 79c7fdecda
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Renderer/JSON.hs
View File

@ -9,7 +9,7 @@ import Renderer
import Renderer.Split
-- | JSON representing an aligned diff.
data JSON = JSON { rows :: [Row (SplitDiff (Source Char) Info)] }
data JSON a = JSON { rows :: [Row (SplitDiff a Info)] }
json :: Renderer a String
json diff sources = ""