From 33d31e045f79630ebf1983285e3c7834982e9cb6 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Thu, 24 May 2018 12:04:29 -0400
Subject: [PATCH] appease hlint

---
 src/Language/Haskell/Assignment.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Language/Haskell/Assignment.hs b/src/Language/Haskell/Assignment.hs
index 2e6d7642e..ad7fa2849 100644
--- a/src/Language/Haskell/Assignment.hs
+++ b/src/Language/Haskell/Assignment.hs
@@ -92,7 +92,7 @@ functionDeclaration = makeTerm
                    <*> children (Declaration.Function
                                <$> pure []
                                <*> variableIdentifier
-                               <*> ((manyTermsTill expression (symbol FunctionBody)) <|> pure [])
+                               <*> (manyTermsTill expression (symbol FunctionBody) <|> pure [])
                                <*> functionBody)
 
 integer :: Assignment
@@ -103,4 +103,4 @@ float = makeTerm <$> symbol Float <*> (Literal.Float <$> source)
 
 -- | Match a series of terms or comments until a delimiter is matched.
 manyTermsTill :: Assignment.Assignment [] Grammar Term -> Assignment.Assignment [] Grammar b -> Assignment.Assignment [] Grammar [Term]
-manyTermsTill step end = manyTill (step <|> comment) end
+manyTermsTill step = manyTill (step <|> comment)