From d6302cd6875e620d0a648ba5757537e04c48a57b Mon Sep 17 00:00:00 2001
From: Timothy Clem <timothy.clem@gmail.com>
Date: Wed, 26 Sep 2018 14:25:00 -0500
Subject: [PATCH] Cleanup

---
 src/Data/AST.hs | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/src/Data/AST.hs b/src/Data/AST.hs
index c52056e48..30d482cd5 100644
--- a/src/Data/AST.hs
+++ b/src/Data/AST.hs
@@ -4,8 +4,6 @@ module Data.AST
   , nodeSpan
   , nodeByteRange
   , AST
-  -- , Location
-  -- , nodeLocation
   ) where
 
 import Data.Location
@@ -20,8 +18,6 @@ type AST syntax grammar = Term syntax (Node grammar)
 data Node grammar = Node
   { nodeSymbol    :: !grammar
   , nodeLocation  :: {-# UNPACK #-} !Location
-  -- , nodeByteRange :: {-# UNPACK #-} !Range
-  -- , nodeSpan      :: {-# UNPACK #-} !Span
   }
   deriving (Eq, Ord, Show)
 
@@ -37,6 +33,3 @@ nodeSpan = locationSpan . nodeLocation
 
 nodeByteRange :: Node grammar -> Range
 nodeByteRange = locationByteRange . nodeLocation
-
--- nodeLocation :: Node grammar -> Record Location
--- nodeLocation Node{..} = nodeByteRange :. nodeSpan :. Nil