github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

Reformat AssignmentState across several lines.

Browse Source
This commit is contained in:
Rob Rix 2017-04-24 13:47:21 -04:00
parent cbe44c66e7
commit 3705f960f4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -147,7 +147,12 @@ advanceState state@AssignmentState{..}
| Rose (_ :. range :. span :. _) _ : rest <- stateNodes = AssignmentState (Info.end range) (Info.spanEnd span) (Source.drop (Info.end range - stateOffset) stateSource) rest
| otherwise = state
data AssignmentState grammar = AssignmentState { stateOffset :: Int, statePos :: Info.SourcePos, stateSource :: Source.Source, stateNodes :: [AST grammar] }
data AssignmentState grammar = AssignmentState
{ stateOffset :: Int
, statePos :: Info.SourcePos
, stateSource :: Source.Source
, stateNodes :: [AST grammar]
}
deriving (Eq, Show)
instance Alternative (Assignment symbol) where