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

Use evalState

Browse Source
This commit is contained in:
Timothy Clem 2018-11-01 17:40:58 -07:00
parent 12a4fc5073
commit 55787183b9
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Tags/Tagging.hs
View File

@ -42,8 +42,7 @@ runTagging :: (IsTaggable syntax)
runTagging blob tree
= Eff.run
. Error.runError
. fmap snd
. State.runState (mempty :: [ContextToken])
. State.evalState mempty
. runT $ source (tagging blob tree)
~> contextualizing blob