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

Reformat the type signature for go.

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

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

@ -243,7 +243,10 @@ runAssignment :: forall grammar a ast. (Symbol grammar, Enum grammar, Eq grammar
-> AssignmentState ast grammar -- ^ The current state.
-> Either (Error grammar) (a, AssignmentState ast grammar) -- ^ 'Either' an 'Error' or the pair of the assigned value & updated state.
runAssignment source toNode = go
where go :: forall a. Assignment ast grammar a -> AssignmentState ast grammar -> Either (Error grammar) (a, AssignmentState ast grammar)
where go :: forall a
. Assignment ast grammar a
-> AssignmentState ast grammar
-> Either (Error grammar) (a, AssignmentState ast grammar)
go = iterFreer run . fmap ((pure .) . (,))
run :: forall a x
. AssignmentF ast grammar x