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

Narrow in on language support for now

Browse Source
This commit is contained in:
Timothy Clem 2019-04-12 15:48:35 -07:00
parent a37a737562
commit abd0bf08af
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/File.hs
View File

@ -62,7 +62,7 @@ readBlobsFromGitRepo path oid = liftIO . fmap catMaybes $
blobFromTreeEntry :: FilePath -> Git.TreeEntry -> IO (Maybe Blob)
blobFromTreeEntry gitDir (Git.TreeEntry Git.NormalMode Git.BlobObject oid path)
| lang <- languageForFilePath path
, lang /= Unknown
, lang `elem` codeNavLanguages
= Just . sourceBlob' path lang oid . fromText <$> Git.catFile gitDir oid
blobFromTreeEntry _ _ = pure Nothing

4
src/Data/Language.hs
View File

@ -8,6 +8,7 @@ module Data.Language
, languageForFilePath
, languageForType
, supportedExts
, codeNavLanguages
) where
import Data.Aeson
@ -151,3 +152,6 @@ languageForFilePath = languageForType . takeExtension
supportedExts :: [String]
supportedExts = [".go", ".py", ".rb", ".js", ".ts"]
codeNavLanguages :: [Language]
codeNavLanguages = [Go, Ruby, Python, JavaScript, TypeScript]