github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00
Code Issues Projects Releases Wiki Activity

Generalize makeState to arbitrary term types.

Browse Source
This commit is contained in:
Rob Rix 2017-06-07 15:02:20 -04:00
parent 9d4fb0920b
commit 360ef63ab4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -249,7 +249,7 @@ data AssignmentState term = AssignmentState
}
deriving (Eq, Show)
makeState :: Source.Source -> [Cofree [] (Record (node ': Location))] -> AssignmentState (Cofree [] (Record (node ': Location)))
makeState :: Source.Source -> [term] -> AssignmentState term
makeState source nodes = AssignmentState 0 (Info.SourcePos 1 1) source nodes