From 4c959d4635ba890f8fdc25ce61c4c125b09e0500 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 6 Apr 2017 09:23:52 -0400
Subject: [PATCH] Define Identifier syntax.

---
 src/Data/Syntax.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/Data/Syntax.hs b/src/Data/Syntax.hs
index 65f2161a2..be91e6208 100644
--- a/src/Data/Syntax.hs
+++ b/src/Data/Syntax.hs
@@ -9,3 +9,10 @@ newtype Leaf a = Leaf { leafContent :: ByteString }
 
 newtype Branch a = Branch { branchElements :: [a] }
   deriving (Eq, Show)
+
+
+-- Common
+
+-- | An identifier of some other construct, whether a containing declaration (e.g. a class name) or a reference (e.g. a variable).
+newtype Identifier a = Identifier ByteString
+  deriving (Eq, Show)