1
1
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00

Remove NamespaceImport Category (unrelated change)

This commit is contained in:
Rick Winfrey 2016-11-01 10:09:05 -05:00
parent d09d0d65d2
commit 582e7ce978
4 changed files with 0 additions and 4 deletions

View File

@ -114,7 +114,6 @@ data Category
| Import | Import
-- | An export -- | An export
| Export | Export
| NamespaceImport
deriving (Eq, Generic, Ord, Show) deriving (Eq, Generic, Ord, Show)
-- Instances -- Instances

View File

@ -341,7 +341,6 @@ instance HasCategory Category where
C.Module -> "module statement" C.Module -> "module statement"
C.Import -> "import statement" C.Import -> "import statement"
C.Export -> "export statement" C.Export -> "export statement"
C.NamespaceImport -> "import statement"
instance HasField fields Category => HasCategory (SyntaxTerm leaf fields) where instance HasField fields Category => HasCategory (SyntaxTerm leaf fields) where
toCategoryName = toCategoryName . category . extract toCategoryName = toCategoryName . category . extract

View File

@ -152,7 +152,6 @@ categoryForJavaScriptProductionName name = case name of
"rel_op" -> RelationalOperator "rel_op" -> RelationalOperator
"import_statement" -> Import "import_statement" -> Import
"export_statement" -> Export "export_statement" -> Export
"namespace_import" -> NamespaceImport
_ -> Other name _ -> Other name
toVarDecl :: (HasField fields Category) => Term (S.Syntax Text) (Record fields) -> Term (S.Syntax Text) (Record fields) toVarDecl :: (HasField fields Category) => Term (S.Syntax Text) (Record fields) -> Term (S.Syntax Text) (Record fields)

View File

@ -83,7 +83,6 @@ styleName category = "category-" <> case category of
C.Module -> "module_statement" C.Module -> "module_statement"
C.Import -> "import_statement" C.Import -> "import_statement"
C.Export -> "export_statement" C.Export -> "export_statement"
C.NamespaceImport -> "namespace_import"
-- | Pick the class name for a split patch. -- | Pick the class name for a split patch.
splitPatchToClassName :: SplitPatch a -> AttributeValue splitPatchToClassName :: SplitPatch a -> AttributeValue