From 79c7fdecdabe6c854e56346af99706c864477713 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 25 Feb 2016 16:00:09 -0700 Subject: [PATCH] Abstract JSON over a type variable. --- src/Renderer/JSON.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Renderer/JSON.hs b/src/Renderer/JSON.hs index 9fb07a163..192a3a499 100644 --- a/src/Renderer/JSON.hs +++ b/src/Renderer/JSON.hs @@ -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 = ""