From b937c38c0e1353e0d97c7d24e6cd4eca9781b5bd Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Tue, 26 Sep 2017 09:23:42 -0400
Subject: [PATCH] :fire: the unused Leaf & Branch types.

---
 src/Data/Syntax.hs | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/src/Data/Syntax.hs b/src/Data/Syntax.hs
index a889f2eb0..8fa42a2da 100644
--- a/src/Data/Syntax.hs
+++ b/src/Data/Syntax.hs
@@ -97,21 +97,6 @@ infixContext :: (Context :< fs, Assignment.Parsing m, Semigroup a, HasCallStack,
 infixContext context left right operators = uncurry (&) <$> postContextualizeThrough context left (asum operators) <*> postContextualize context right
 
 
--- Undifferentiated
-
-newtype Leaf a = Leaf { leafContent :: ByteString }
-  deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Mergeable, Show, Traversable)
-
-instance Eq1 Leaf where liftEq = genericLiftEq
-instance Show1 Leaf where liftShowsPrec = genericLiftShowsPrec
-
-newtype Branch a = Branch { branchElements :: [a] }
-  deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Mergeable, Show, Traversable)
-
-instance Eq1 Branch where liftEq = genericLiftEq
-instance Show1 Branch where liftShowsPrec = genericLiftShowsPrec
-
-
 -- Common
 
 -- | An identifier of some other construct, whether a containing declaration (e.g. a class name) or a reference (e.g. a variable).