github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-27 12:57:49 +03:00
Code Issues Projects Releases Wiki Activity

This is no longer necessary

Browse Source
This commit is contained in:
Timothy Clem 2019-03-29 07:59:33 -07:00
parent 48a11d88e8
commit c8083a0470
4 changed files with 4 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
proto/semantic/api/v1/code_analysis.proto
View File

@ -153,7 +153,6 @@ message Blob {
string content = 1;
string path = 2;
string language = 3;
string oid = 4;
}
message BlobPair {
@ -166,7 +165,6 @@ message File {
string language = 2;
repeated Symbol symbols = 3;
repeated ParseError errors = 4;
string blob_oid = 5;
}
message Symbol {

4
src/Semantic/Api/Bridge.hs
View File

@ -97,8 +97,8 @@ instance APIBridge T.Text Data.Language where
instance APIBridge API.Blob Data.Blob where
bridging = iso apiBlobToBlob blobToApiBlob where
blobToApiBlob Data.Blob{..} = API.Blob (toText blobSource) (T.pack blobPath) (bridging # blobLanguage) blobOid
apiBlobToBlob API.Blob{..} = Data.Blob (fromText content) (T.unpack path) (language ^. bridging) oid
blobToApiBlob Data.Blob{..} = API.Blob (toText blobSource) (T.pack blobPath) (bridging # blobLanguage)
apiBlobToBlob API.Blob{..} = Data.Blob (fromText content) (T.unpack path) (language ^. bridging) mempty
instance APIConvert API.BlobPair Data.BlobPair where

4
src/Semantic/Api/Symbols.hs
View File

@ -65,7 +65,7 @@ parseSymbols blobs = ParseTreeSymbolResponse . V.fromList . toList <$> distribut
go :: (Member (Error SomeException) sig, Member Task sig, Carrier sig m) => Blob -> m File
go blob@Blob{..} = (doParse blob >>= withSomeTerm (renderToSymbols blob)) `catchError` (\(SomeException e) -> pure $ errorFile (show e))
where
errorFile e = File (pack blobPath) (bridging # blobLanguage) mempty (V.fromList [ParseError (T.pack e)]) blobOid
errorFile e = File (pack blobPath) (bridging # blobLanguage) mempty (V.fromList [ParseError (T.pack e)])
symbolsToSummarize :: [Text]
symbolsToSummarize = ["Function", "Method", "Class", "Module", "Call", "Send"]
@ -74,7 +74,7 @@ parseSymbols blobs = ParseTreeSymbolResponse . V.fromList . toList <$> distribut
renderToSymbols blob@Blob{..} term = pure $ either (errorFile . show) (tagsToFile blob) (runTagging blob symbolsToSummarize term)
tagsToFile :: Blob -> [Tag] -> File
tagsToFile Blob{..} tags = File (pack blobPath) (bridging # blobLanguage) (V.fromList (fmap tagToSymbol tags)) mempty blobOid
tagsToFile Blob{..} tags = File (pack blobPath) (bridging # blobLanguage) (V.fromList (fmap tagToSymbol tags)) mempty
tagToSymbol :: Tag -> Symbol
tagToSymbol Tag{..}

12
src/Semantic/Api/V1/CodeAnalysisPB.hs
View File

@ -1019,7 +1019,6 @@ data Blob = Blob
{ content :: Text
, path :: Text
, language :: Text
, oid :: Text
} deriving stock (Eq, Ord, Show, Generic)
deriving anyclass (Proto3.Named, NFData)
@ -1028,7 +1027,6 @@ instance FromJSONPB Blob where
<$> obj .: "content"
<*> obj .: "path"
<*> obj .: "language"
<*> obj .: "oid"
instance ToJSONPB Blob where
toJSONPB Blob{..} = object
@ -1036,14 +1034,12 @@ instance ToJSONPB Blob where
"content" .= content
, "path" .= path
, "language" .= language
, "oid" .= oid
]
toEncodingPB Blob{..} = pairs
[
"content" .= content
, "path" .= path
, "language" .= language
, "oid" .= oid
]
instance FromJSON Blob where
@ -1059,13 +1055,11 @@ instance Proto3.Message Blob where
encodeMessageField 1 content
, encodeMessageField 2 path
, encodeMessageField 3 language
, encodeMessageField 4 oid
]
decodeMessage _ = Blob
<$> at decodeMessageField 1
<*> at decodeMessageField 2
<*> at decodeMessageField 3
<*> at decodeMessageField 4
dotProto = undefined
data BlobPair = BlobPair
@ -1114,7 +1108,6 @@ data File = File
, language :: Text
, symbols :: Vector Symbol
, errors :: Vector ParseError
, blobOid :: Text
} deriving stock (Eq, Ord, Show, Generic)
deriving anyclass (Proto3.Named, NFData)
@ -1124,7 +1117,6 @@ instance FromJSONPB File where
<*> obj .: "language"
<*> obj .: "symbols"
<*> obj .: "errors"
<*> obj .: "blobOid"
instance ToJSONPB File where
toJSONPB File{..} = object
@ -1133,7 +1125,6 @@ instance ToJSONPB File where
, "language" .= language
, "symbols" .= symbols
, "errors" .= errors
, "blobOid" .= blobOid
]
toEncodingPB File{..} = pairs
[
@ -1141,7 +1132,6 @@ instance ToJSONPB File where
, "language" .= language
, "symbols" .= symbols
, "errors" .= errors
, "blobOid" .= blobOid
]
instance FromJSON File where
@ -1158,14 +1148,12 @@ instance Proto3.Message File where
, encodeMessageField 2 language
, encodeMessageField 3 (Proto3.NestedVec symbols)
, encodeMessageField 4 (Proto3.NestedVec errors)
, encodeMessageField 5 blobOid
]
decodeMessage _ = File
<$> at decodeMessageField 1
<*> at decodeMessageField 2
<*> (nestedvec <$> at decodeMessageField 3)
<*> (nestedvec <$> at decodeMessageField 4)
<*> at decodeMessageField 5
dotProto = undefined
data Symbol = Symbol