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

Tacit.

Browse Source
This commit is contained in:
Rob Rix 2018-03-21 20:31:18 -04:00
parent 36aa4e445c
commit 6273a22c71
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/Data/Abstract/Module.hs
View File

@ -26,5 +26,5 @@ moduleForBlob rootDir blob term = Module (moduleName blob) (blobPath blob) term
where moduleName Blob{..} | Just Go <- blobLanguage = toName (takeDirectory (modulePath blobPath)) where moduleName Blob{..} | Just Go <- blobLanguage = toName (takeDirectory (modulePath blobPath))
| otherwise = toName (modulePath blobPath) | otherwise = toName (modulePath blobPath)
-- TODO: Need a better way to handle module registration and resolution -- TODO: Need a better way to handle module registration and resolution
toName str = qualifiedName (BC.pack <$> splitWhen (== pathSeparator) str) toName = qualifiedName . map BC.pack . splitWhen (== pathSeparator)
modulePath = dropExtensions . maybe takeFileName makeRelative rootDir modulePath = dropExtensions . maybe takeFileName makeRelative rootDir