From bec7e0ea88254e49dc261eadad72064e8f06ca3b Mon Sep 17 00:00:00 2001
From: Timothy Clem <timothy.clem@gmail.com>
Date: Thu, 30 Aug 2018 11:45:24 -0700
Subject: [PATCH] Not needed

---
 src/Rendering/JSON.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/Rendering/JSON.hs b/src/Rendering/JSON.hs
index cc6bbbbe2..c8a2b090d 100644
--- a/src/Rendering/JSON.hs
+++ b/src/Rendering/JSON.hs
@@ -44,9 +44,6 @@ instance ToJSON JSONStat where
   toJSON JSONStat{..} = object ("path" .= pathKeyForBlobPair jsonStatBlobs : toJSONFields (these Delete Insert Replace (runJoin jsonStatBlobs)))
   toEncoding JSONStat{..} = pairs (fold ("path" .= pathKeyForBlobPair jsonStatBlobs : toJSONFields (these Delete Insert Replace (runJoin jsonStatBlobs))))
 
-newtype JSONError = JSONError { jsonError :: String }
-  deriving (Eq, Show)
-
 -- | Render a term to a value representing its JSON.
 renderJSONTerm :: ToJSON a => Blob -> a -> JSON "trees" SomeJSON
 renderJSONTerm blob content = JSON [ SomeJSON (JSONTerm blob content) ]