From 1a45d0b1d642d606a6a3004a686f3bb7bda45c2b Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 25 Feb 2016 14:15:22 -0700 Subject: [PATCH] Stub in a JSON renderer. --- src/Renderer/JSON.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Renderer/JSON.hs b/src/Renderer/JSON.hs index 2cfb21a59..9fb07a163 100644 --- a/src/Renderer/JSON.hs +++ b/src/Renderer/JSON.hs @@ -1,11 +1,15 @@ module Renderer.JSON ( - JSON (JSON, rows) + json ) where import Diff import Row import Source +import Renderer import Renderer.Split -- | JSON representing an aligned diff. data JSON = JSON { rows :: [Row (SplitDiff (Source Char) Info)] } + +json :: Renderer a String +json diff sources = ""