github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

Ingest exports/imports/declarations.

Browse Source
This commit is contained in:
Rob Rix 2015-11-20 08:55:19 -08:00
parent 2ac3f65b15
commit af0ebfa696
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/Main.hs
View File

@ -28,8 +28,12 @@ parseModuleFile file = do
return $ parseModule contents return $ parseModule contents
moduleToTerm :: HsModule -> Term a Info moduleToTerm :: HsModule -> Term a Info
moduleToTerm (HsModule loc name exports imports declarations) = info :< Indexed [] where moduleToTerm (HsModule loc name exports imports declarations) = info :< Indexed terms where
info = Info Range { start = 0, end = 0 } Data.Set.empty info = Info Range { start = 0, end = 0 } Data.Set.empty
exportTerms = exportSpecToTerm <$> maybe [] id exports
importTerms = importDeclarationToTerm <$> imports
declarationTerms = declarationToTerm <$> declarations
terms = exportTerms ++ importTerms ++ declarationTerms
exportSpecToTerm :: HsExportSpec -> Term a Info exportSpecToTerm :: HsExportSpec -> Term a Info
exportSpecToTerm spec = _ exportSpecToTerm spec = _