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

Parse js files too

Browse Source
This commit is contained in:
joshvera 2017-10-17 15:03:29 -04:00
parent 6cecc8d3de
commit 3b551f5741
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Files.hs
View File

@ -55,7 +55,7 @@ readBlobsFromHandle = fmap toBlobs . readFromHandle
readBlobsFromDir :: MonadIO m => FilePath -> m [Blob.Blob]
readBlobsFromDir path = do
paths <- liftIO (glob (path </> "**/*.rb"))
paths <- liftIO (globDir1 (compile "[^vendor]**/*[.rb|.js]") path)
let paths' = catMaybes $ fmap (\p -> (p,) . Just <$> languageForFilePath p) paths
traverse (uncurry readFile) paths'