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

Define an Interpreter instance for ImportGraphing.

Browse Source
This commit is contained in:
Rob Rix 2018-04-24 18:57:22 -04:00
parent ff3ba0fa9d
commit c07272bc7e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Analysis/Abstract/ImportGraph.hs
View File

@ -169,3 +169,8 @@ vertexToType :: Vertex -> Text
vertexToType Package{} = "package"
vertexToType Module{} = "module"
vertexToType Variable{} = "variable"
instance Interpreter effects (result, ImportGraph) rest m
=> Interpreter (State ImportGraph ': effects) result rest (ImportGraphing m) where
interpret = interpret . raise @m . flip runState mempty . lower