github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
Timothy Clem 2018-09-26 14:25:00 -05:00
parent c8dfe57a48
commit d6302cd687
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Data/AST.hs
View File

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