1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +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 renderTreeGraph = simplify . runGraph . cata toTreeGraph
runGraph :: ReaderC (Graph vertex) runGraph :: ReaderC (Graph vertex)
(FreshC VoidC) (Graph vertex) (FreshC PureC) (Graph vertex)
-> Graph vertex -> Graph vertex
runGraph = run . runFresh . runReader mempty runGraph = run . runFresh . runReader mempty

View File

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

View File

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

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