From 860138fe195fa64791cc134a568d14c2ef2626de Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 26 Apr 2017 12:33:37 -0400 Subject: [PATCH] :fire: an extra space. --- src/Language/Ruby/Syntax.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Language/Ruby/Syntax.hs b/src/Language/Ruby/Syntax.hs index 05bf3be4b..be4cd4389 100644 --- a/src/Language/Ruby/Syntax.hs +++ b/src/Language/Ruby/Syntax.hs @@ -103,7 +103,7 @@ literal = term <*> (Literal.true <$ symbol Language.Ruby.Syntax.True <* source -- | Assignment of the current node’s annotation. 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 f s = symbol s *> pure (\ a -> cofree . (a :<) . inj . f) <*> location <*> source