github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 18:23:44 +03:00
Code Issues Projects Releases Wiki Activity

State is the other way around now.

Browse Source
This commit is contained in:
Rob Rix 2018-07-04 10:53:46 -04:00
parent ddbd2690bb
commit ea9b24a903
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Graph/Adjacency/Import.hs
View File

@ -124,7 +124,7 @@ tagGraph :: forall a . (Eq a, Hashable a) => Graph a -> Graph (a, Tag)
tagGraph = unwrap . traverse go where
unwrap :: Eff '[Fresh, State (HashMap a Tag)] (Graph (a, Tag)) -> Graph (a, Tag)
unwrap = run . fmap fst . runState HashMap.empty . runFresh 1
unwrap = run . fmap snd . runState HashMap.empty . runFresh 1
go :: a -> Eff '[Fresh, State (HashMap a Tag)] (a, Tag)
go v = gets (HashMap.lookup v) >>= \case