diff --git a/src/Language/Go/Assignment.hs b/src/Language/Go/Assignment.hs index a320bdaef..9ff375677 100644 --- a/src/Language/Go/Assignment.hs +++ b/src/Language/Go/Assignment.hs @@ -12,7 +12,6 @@ import Prologue import Assigning.Assignment hiding (Assignment, Error) import qualified Assigning.Assignment as Assignment import qualified Data.Abstract.ScopeGraph as ScopeGraph (AccessControl(..)) -import Data.Abstract.Name (Name, name) import Data.Syntax (contextualize, emptyTerm, handleError, infixContext, makeTerm, makeTerm', makeTerm'', makeTerm1, parseError) import qualified Data.Syntax as Syntax diff --git a/src/Language/Java/Assignment.hs b/src/Language/Java/Assignment.hs index 4e3b9d571..2f6369aa5 100644 --- a/src/Language/Java/Assignment.hs +++ b/src/Language/Java/Assignment.hs @@ -309,9 +309,6 @@ identifier = makeTerm <$> symbol Identifier <*> (Syntax.Identifier . name <$> so typeIdentifier :: Assignment Term typeIdentifier = makeTerm <$> symbol TypeIdentifier <*> (Syntax.Identifier . name <$> source) -identifier' :: Assignment Name -identifier' = (symbol Identifier <|> symbol TypeIdentifier <|> symbol Identifier') *> (name <$> source) - scopedIdentifier :: Assignment Term scopedIdentifier = makeTerm <$> symbol ScopedIdentifier <*> children (Expression.MemberAccess <$> term expression <*> identifier) diff --git a/src/Language/PHP/Assignment.hs b/src/Language/PHP/Assignment.hs index 9323afea6..81cf97367 100644 --- a/src/Language/PHP/Assignment.hs +++ b/src/Language/PHP/Assignment.hs @@ -488,9 +488,6 @@ newVariable = makeTerm <$> symbol NewVariable <*> children (Syntax.NewVariable < memberName :: Assignment Term memberName = name <|> simpleVariable' <|> expression -memberName' :: Assignment Name.Name -memberName' = name' <|> simpleVariable'' - relativeScope :: Assignment Term relativeScope = makeTerm <$> symbol RelativeScope <*> (Syntax.RelativeScope <$> source) @@ -752,9 +749,6 @@ simpleVariable = makeTerm <$> symbol SimpleVariable <*> children (Syntax.SimpleV simpleVariable' :: Assignment Term simpleVariable' = choice [simpleVariable, variableName] -simpleVariable'' :: Assignment Name.Name -simpleVariable'' = variableName' - yieldExpression :: Assignment Term yieldExpression = makeTerm <$> symbol YieldExpression <*> children (Statement.Yield <$> term (arrayElementInitializer <|> expression)) @@ -779,15 +773,6 @@ requireOnceExpression = makeTerm <$> symbol RequireOnceExpression <*> children ( variableName :: Assignment Term variableName = makeTerm <$> symbol VariableName <*> children (Syntax.VariableName <$> term name) -variableName' :: Assignment Name.Name -variableName' = symbol VariableName *> children name' - -name :: Assignment Term -name = makeTerm <$> (symbol Name <|> symbol Name') <*> (Syntax.Identifier . Name.name <$> source) - -name' :: Assignment Name.Name -name' = (symbol Name <|> symbol Name') *> (Name.name <$> source) - functionStaticDeclaration :: Assignment Term functionStaticDeclaration = makeTerm <$> symbol FunctionStaticDeclaration <*> children (Declaration.VariableDeclaration <$> manyTerm staticVariableDeclaration) diff --git a/src/Language/Python/Assignment.hs b/src/Language/Python/Assignment.hs index d1c0315b7..6b84b04f0 100644 --- a/src/Language/Python/Assignment.hs +++ b/src/Language/Python/Assignment.hs @@ -9,7 +9,6 @@ module Language.Python.Assignment import Assigning.Assignment hiding (Assignment, Error) import qualified Assigning.Assignment as Assignment -import Data.Abstract.Name (Name, name) import qualified Data.Diff as Diff import qualified Data.List.NonEmpty as NonEmpty import Data.Sum diff --git a/src/Language/TypeScript/Assignment.hs b/src/Language/TypeScript/Assignment.hs index 5e6f0cca4..f6172dc12 100644 --- a/src/Language/TypeScript/Assignment.hs +++ b/src/Language/TypeScript/Assignment.hs @@ -468,9 +468,6 @@ jsxAttribute = makeTerm <$> symbol Grammar.JsxAttribute <*> children (TypeScript propertyIdentifier :: Assignment Term propertyIdentifier = makeTerm <$> symbol PropertyIdentifier <*> (Syntax.Identifier . name <$> source) -propertyIdentifier' :: Assignment Name -propertyIdentifier' = symbol PropertyIdentifier *> (name <$> source) - sequenceExpression :: Assignment Term sequenceExpression = makeTerm <$> symbol Grammar.SequenceExpression <*> children (Expression.SequenceExpression <$> term expression <*> term expressions) diff --git a/src/Tags/Tagging.hs b/src/Tags/Tagging.hs index 8e291dc33..315fdb916 100644 --- a/src/Tags/Tagging.hs +++ b/src/Tags/Tagging.hs @@ -12,7 +12,6 @@ import Control.Effect as Eff import Control.Effect.Error as Error import qualified Control.Effect.State as State import Control.Monad.Trans -import Data.Aeson import Data.Blob import Data.Location import Data.Machine as Machine