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

Add type signature

Browse Source
This commit is contained in:
joshvera 2018-03-29 11:27:41 -04:00
parent 46274ad9ef
commit 9832779676
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

@ -49,6 +49,11 @@ instance ( Effectful (m term value)
insertVertexName (moduleName m)
liftAnalyze analyzeModule recur m
insertVertexName :: (Effectful (m term value)
, Member (State ImportGraph) effects
, MonadEvaluator term value (m term value effects))
=> NonEmpty ByteString
-> ImportGraphing m term value effects ()
insertVertexName name = do
ms <- askModuleStack
let parent = maybe empty (vertex . moduleName) (listToMaybe ms)