From 9dac0260e362521e6da6a9088da764588e016774 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 27 Apr 2017 16:18:11 -0400
Subject: [PATCH] :fire: Identifier.

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

diff --git a/src/Renderer/JSON.hs b/src/Renderer/JSON.hs
index 5554527ae..e81f26ec1 100644
--- a/src/Renderer/JSON.hs
+++ b/src/Renderer/JSON.hs
@@ -250,9 +250,6 @@ jsonParseTree' constructor combine debug SourceBlob{..} term = toJSON $ construc
 -- | A function computing a value to decorate terms with. This can be used to cache synthesized attributes on terms.
 type TermDecorator f fields field = TermF f (Record fields) (Term f (Record (field ': fields))) -> field
 
-newtype Identifier = Identifier Text
-  deriving (Eq, Show, ToJSON)
-
 data RoseF a b = RoseF a [b]
   deriving (Eq, Functor, Show)