github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 12:23:08 +03:00
Code Issues Projects Releases Wiki Activity

appease hlint

Browse Source
This commit is contained in:
joshvera 2018-05-24 12:04:29 -04:00
parent 3d70af57a4
commit 33d31e045f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Haskell/Assignment.hs
View File

@ -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)