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

Guard clauses.

Browse Source
This commit is contained in:
Rob Rix 2018-03-21 20:30:39 -04:00
parent 45dcfaad41
commit 36aa4e445c
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Data/Abstract/Module.hs
View File

@ -23,9 +23,8 @@ moduleForBlob :: Maybe FilePath -- ^ The root directory relative to which the mo
-> term -- ^ The @term@ representing the body of the module.
-> Module term -- ^ A 'Module' named appropriate for the 'Blob', holding the @term@, and constructed relative to the root 'FilePath', if any.
moduleForBlob rootDir blob term = Module (moduleName blob) (blobPath blob) term
where moduleName Blob{..} = let path = dropExtensions (maybe takeFileName makeRelative rootDir blobPath)
in toName $ case blobLanguage of
where moduleName Blob{..} | Just Go <- blobLanguage = toName (takeDirectory (modulePath blobPath))
| otherwise = toName (modulePath blobPath)
-- TODO: Need a better way to handle module registration and resolution
Just Go -> takeDirectory path -- Go allows defining modules across multiple files in the same directory.
_ -> path
toName str = qualifiedName (BC.pack <$> splitWhen (== pathSeparator) str)
modulePath = dropExtensions . maybe takeFileName makeRelative rootDir