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

🔥 an extra space.

Browse Source
This commit is contained in:
Rob Rix 2017-04-26 12:33:37 -04:00
parent 129d962041
commit 860138fe19
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/Language/Ruby/Syntax.hs
View File

@ -103,7 +103,7 @@ literal = term <*> (Literal.true <$ symbol Language.Ruby.Syntax.True <* source
-- | Assignment of the current node’s annotation. -- | Assignment of the current node’s annotation.
term :: InUnion Syntax' f => Assignment (Node grammar) (f (Term Syntax Location) -> Term Syntax Location) term :: InUnion Syntax' f => Assignment (Node grammar) (f (Term Syntax Location) -> Term Syntax Location)
term = (\ a f -> cofree $ a :< inj f) <$> location term = (\ a f -> cofree $ a :< inj f) <$> location
leaf :: (Enum symbol, Eq symbol, InUnion Syntax' f) => (ByteString -> f (Term Syntax Location)) -> symbol -> Assignment (Node symbol) (Term Syntax Location) leaf :: (Enum symbol, Eq symbol, InUnion Syntax' f) => (ByteString -> f (Term Syntax Location)) -> symbol -> Assignment (Node symbol) (Term Syntax Location)
leaf f s = symbol s *> pure (\ a -> cofree . (a :<) . inj . f) <*> location <*> source leaf f s = symbol s *> pure (\ a -> cofree . (a :<) . inj . f) <*> location <*> source