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

Little bit more renaming for clarity

Browse Source
This commit is contained in:
Timothy Clem 2018-01-25 11:25:10 -08:00
parent 5385069ace
commit 184d25bccc
1 changed files with 38 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/Rendering/Imports.hs
View File

@ -70,23 +70,23 @@ declarationSummary record = case getDeclaration record of
, declarationSpan = getField record
}
importSummary :: (HasField fields (Maybe Declaration), HasField fields Span) => Record fields -> Maybe SymbolImport
importSummary :: (HasField fields (Maybe Declaration), HasField fields Span) => Record fields -> Maybe ImportStatement
importSummary record = case getDeclaration record of
Just ImportDeclaration{..} -> Just $ SymbolImport declarationIdentifier declarationAlias (getField record)
Just ImportDeclaration{..} -> Just $ ImportStatement declarationIdentifier declarationAlias (getField record)
_ -> Nothing
referenceSummary :: (HasField fields (Maybe Declaration), HasField fields Span) => Record fields -> Maybe SymbolReference
referenceSummary :: (HasField fields (Maybe Declaration), HasField fields Span) => Record fields -> Maybe CallExpression
referenceSummary record = case getDeclaration record of
Just decl@CallReference{..} -> Just $ SymbolReference declarationIdentifier declarationImportIdentifier (toCategoryName decl) (getField record)
Just decl@CallReference{..} -> Just $ CallExpression declarationIdentifier declarationImportIdentifier (toCategoryName decl) (getField record)
_ -> Nothing
data Module = Module
{ moduleName :: T.Text
, modulePaths :: [T.Text]
, moduleLanguage :: Maybe T.Text
, moduleImports :: [SymbolImport]
, moduleImports :: [ImportStatement]
, moduleDeclarations :: [SymbolDeclaration]
, moduleReferences :: [SymbolReference]
, moduleCalls :: [CallExpression]
} deriving (Generic, Eq, Show)
instance Monoid Module where
@ -94,12 +94,13 @@ instance Monoid Module where
mappend (Module n1 p1 l1 i1 d1 r1) (Module _ p2 _ i2 d2 r2) = Module n1 (p1 <> p2) l1 (i1 <> i2) (d1 <> d2) (r1 <> r2)
instance ToJSON Module where
toJSON Module{..} = object [ "name" .= moduleName
toJSON Module{..} = object
[ "name" .= moduleName
, "paths" .= modulePaths
, "langauge" .= moduleLanguage
, "imports" .= moduleImports
, "declarations" .= moduleDeclarations
, "references" .= moduleReferences
, "calls" .= moduleCalls
]
data SymbolDeclaration = SymbolDeclaration
@ -109,33 +110,39 @@ data SymbolDeclaration = SymbolDeclaration
} deriving (Generic, Eq, Show)
instance ToJSON SymbolDeclaration where
toJSON SymbolDeclaration{..} = object [ "name" .= declarationName
toJSON SymbolDeclaration{..} = object
[ "name" .= declarationName
, "kind" .= declarationKind
-- , "span" .= declarationSpan
]
data SymbolImport = SymbolImport
data ImportStatement = ImportStatement
{ importName :: T.Text
, importAlias :: T.Text
, importSpan :: Span
} deriving (Generic, Eq, Show)
instance ToJSON SymbolImport where
toJSON SymbolImport{..} = object [ "name" .= importName
instance ToJSON ImportStatement where
toJSON ImportStatement{..} = object
[ "name" .= importName
, "alias" .= importAlias
-- , "span" .= importSpan
]
data SymbolReference = SymbolReference
data CallExpression = CallExpression
{ referenceName :: T.Text
, referenceImport :: Maybe T.Text
, referenceTarget :: Maybe T.Text
, referenceKind :: T.Text
, referenceSpan :: Span
} deriving (Generic, Eq, Show)
instance ToJSON SymbolReference where
toJSON SymbolReference{..} = object [ "name" .= referenceName
, "import" .= referenceImport
instance ToJSON CallExpression where
toJSON CallExpression{..} = objectWithoutNulls
[ "name" .= referenceName
, "target" .= referenceTarget
, "kind" .= referenceKind
-- , "span" .= referenceSpan
]
objectWithoutNulls :: [(T.Text, Value)] -> Value
objectWithoutNulls = object . filter (\(_, v) -> v /= Null)