1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00

WIP async effect

This commit is contained in:
joshvera 2019-03-12 18:41:20 -04:00
parent 3782f6f453
commit 29b774c22d
4 changed files with 4 additions and 4 deletions

View File

@ -28,7 +28,7 @@ renderTreeGraph :: (Ord vertex, Recursive t, ToTreeGraph vertex (Base t)) => t -
renderTreeGraph = simplify . runGraph . cata toTreeGraph
runGraph :: ReaderC (Graph vertex)
(FreshC VoidC) (Graph vertex)
(FreshC PureC) (Graph vertex)
-> Graph vertex
runGraph = run . runFresh . runReader mempty

View File

@ -20,7 +20,7 @@ import qualified Data.Source as Source
type Translator
= StateC [Scope]
( ErrorC TranslationError VoidC)
( ErrorC TranslationError PureC)
contextualizing :: ProcessT Translator Token Fragment
contextualizing = repeatedly $ await >>= \case

View File

@ -39,7 +39,7 @@ type ContextToken = (Text, Maybe Range)
type Contextualizer
= StateC [ContextToken]
( ErrorC TranslationError VoidC)
( ErrorC TranslationError PureC)
contextualizing :: Blob -> Machine.ProcessT Contextualizer Token Tag
contextualizing Blob{..} = repeatedly $ await >>= \case

@ -1 +1 @@
Subproject commit 17b0a846aa50fd0dea157624c031a550d8edd469
Subproject commit 25e66959978147b9ee1510ec3d90cd0045cfba54