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

Rephrase ImportGraphAnalysis as a composed handler.

Browse Source
This commit is contained in:
Rob Rix 2018-05-04 18:41:46 -04:00
parent 97775268e6
commit 115c21074b
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/Semantic/Graph.hs
View File

@ -62,18 +62,15 @@ parseModule parser rootDir file = do
moduleForBlob rootDir blob <$> parse parser blob
type ImportGraphAnalysis term
= ImportGraphing
( BadAddresses
( BadModuleResolutions
( BadVariables
( BadValues
( BadSyntax
( Erroring (Analysis.LoadError term)
( Evaluating
(Located Precise term)
term
(Value (Located Precise term)))))))))
importGraphAnalysis
= evaluating
. erroring @(Analysis.LoadError term)
. resumingBadSyntax
. resumingBadValues
. resumingBadVariables
. resumingBadModuleResolutions
. resumingBadAddresses
. importGraphing
-- | Render the import graph for a given 'Package'.
graphImports :: ( Show ann