github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Unpack Node fields.

Browse Source
This commit is contained in:
Rob Rix 2017-08-04 10:11:19 -04:00
parent 76d57fc192
commit ed93b6e1fa
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Syntax/Assignment.hs
View File

@ -174,9 +174,9 @@ type Location = '[Info.Range, Info.Span]
type AST grammar = Cofree [] (Node grammar) type AST grammar = Cofree [] (Node grammar)
data Node grammar = Node data Node grammar = Node
{ nodeSymbol :: !grammar { nodeSymbol :: {-# UNPACK #-} !grammar
, nodeByteRange :: !Info.Range , nodeByteRange :: {-# UNPACK #-} !Info.Range
, nodeSpan :: !Info.Span , nodeSpan :: {-# UNPACK #-} !Info.Span
} }
deriving (Eq, Show) deriving (Eq, Show)