github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

hlint suggestions

Browse Source
This commit is contained in:
Rick Winfrey 2018-06-06 17:17:59 -07:00
parent bd43959cb0
commit c9998e2ada
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -206,7 +206,7 @@ gadtDeclaration = makeTerm
<*> (makeTerm <$> location <*> (Syntax.Type <$> typeConstructor <*> typeParameters' <*> (kindSignature <|> emptyTerm))) <*> (makeTerm <$> location <*> (Syntax.Type <$> typeConstructor <*> typeParameters' <*> (kindSignature <|> emptyTerm)))
<*> where') <*> where')
where where
typeParameters' = makeTerm <$> location <*> (manyTermsTill expression (symbol KindSignature <|> symbol Where')) typeParameters' = makeTerm <$> location <*> manyTermsTill expression (symbol KindSignature <|> symbol Where')
integer :: Assignment integer :: Assignment
integer = makeTerm <$> symbol Integer <*> (Literal.Integer <$> source) integer = makeTerm <$> symbol Integer <*> (Literal.Integer <$> source)
@ -254,7 +254,7 @@ pragma :: Assignment
pragma = makeTerm <$> symbol Pragma <*> (Syntax.Pragma <$> source) pragma = makeTerm <$> symbol Pragma <*> (Syntax.Pragma <$> source)
qualifiedTypeConstructorIdentifier :: Assignment qualifiedTypeConstructorIdentifier :: Assignment
qualifiedTypeConstructorIdentifier = makeTerm <$> symbol QualifiedTypeConstructorIdentifier <*> children (Syntax.QualifiedTypeConstructorIdentifier <$> (many expression)) qualifiedTypeConstructorIdentifier = makeTerm <$> symbol QualifiedTypeConstructorIdentifier <*> children (Syntax.QualifiedTypeConstructorIdentifier <$> many expression)
star :: Assignment star :: Assignment
star = makeTerm <$> token Star <*> pure Syntax.Star star = makeTerm <$> token Star <*> pure Syntax.Star

2
src/Language/Haskell/Syntax.hs
View File

@ -226,7 +226,7 @@ instance Show1 Star where liftShowsPrec = genericLiftShowsPrec
instance Evaluatable Star instance Evaluatable Star
data QualifiedTypeConstructorIdentifier a = QualifiedTypeConstructorIdentifier { qualifiedTypeConstructorIdentifierName :: [a] } newtype QualifiedTypeConstructorIdentifier a = QualifiedTypeConstructorIdentifier { qualifiedTypeConstructorIdentifierName :: [a] }
deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable) deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Mergeable, Ord, Show, ToJSONFields1, Traversable)
instance Eq1 QualifiedTypeConstructorIdentifier where liftEq = genericLiftEq instance Eq1 QualifiedTypeConstructorIdentifier where liftEq = genericLiftEq