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

Define >< as a convenient synonym for connect.

Browse Source
This commit is contained in:
Rob Rix 2018-03-22 12:38:13 -04:00
parent dad4cf5490
commit 7bd0c0f437
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

@ -41,6 +41,11 @@ instance ( Member (State ImportGraph) effects
evaluateModule m@Module{..} = ImportGraphing (evaluateModule m)
(><) :: Graph a => a -> a -> a
(><) = connect
infixr 7 ><
modifyImportGraph :: (Effectful (m term value), Member (State ImportGraph) effects) => (ImportGraph -> ImportGraph) -> ImportGraphing m term value effects ()
modifyImportGraph = raise . modify