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

Strictify state fields.

Browse Source
This commit is contained in:
Rob Rix 2017-08-04 10:08:50 -04:00
parent e4bcdf293f
commit 4b1365729b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -312,10 +312,10 @@ runAssignment toNode source = (\ assignment state -> disamb Left (Right . minimu
-- | State kept while running 'Assignment's. -- | State kept while running 'Assignment's.
data State ast grammar = State data State ast grammar = State
{ stateOffset :: Int -- ^ The offset into the Source thus far reached, measured in bytes. { stateOffset :: !Int -- ^ The offset into the Source thus far reached, measured in bytes.
, statePos :: Info.Pos -- ^ The (1-indexed) line/column position in the Source thus far reached. , statePos :: !Info.Pos -- ^ The (1-indexed) line/column position in the Source thus far reached.
, stateErrorCounter :: Int -- ^ Monotonic counter tracking the number of error handlers invoked. , stateErrorCounter :: !Int -- ^ Monotonic counter tracking the number of error handlers invoked.
, stateNodes :: [ast] -- ^ The remaining nodes to assign. Note that 'children' rules recur into subterms, and thus this does not necessarily reflect all of the terms remaining to be assigned in the overall algorithm, only those “in scope.” , stateNodes :: ![ast] -- ^ The remaining nodes to assign. Note that 'children' rules recur into subterms, and thus this does not necessarily reflect all of the terms remaining to be assigned in the overall algorithm, only those “in scope.”
} }
deriving (Eq, Show) deriving (Eq, Show)