github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Inline go.

Browse Source
This commit is contained in:
Rob Rix 2017-07-22 13:56:56 -04:00
parent 4eabcf9cfc
commit a1d03bb6cc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -248,6 +248,7 @@ runAssignment source toNode = go
-> AssignmentState ast grammar
-> Either (Error grammar) (a, AssignmentState ast grammar)
go = iterFreer run . fmap ((pure .) . (,))
{-# INLINE go #-}
run :: forall a x
. AssignmentF ast grammar x
-> (x -> AssignmentState ast grammar -> Either (Error grammar) (a, AssignmentState ast grammar))