github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

Define the terms for a language of tasks.

Browse Source
This commit is contained in:
Rob Rix 2017-05-29 11:42:21 -04:00
parent 6554b5e40f
commit 0888749f7c
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Semantic.hs
View File

@ -7,6 +7,7 @@ module Semantic
) where
import qualified Control.Concurrent.Async as Async
import Control.Monad.Free.Freer
import Data.Functor.Both
import Data.Record
import Diff
@ -66,6 +67,14 @@ parseBlob decorator SourceBlob{..} = decorator source <$> runParser (parserForLa
type Decorator input output = Source -> input -> output
data TaskF output where
Parse :: Parser term -> Source -> TaskF term
Decorate :: Decorator term term' -> Source -> term -> TaskF term'
Render :: Monoid output => Renderer input output -> input -> TaskF output
type Task = Freer TaskF
-- Internal
renderConcurrently :: (Monoid output, StringConv output ByteString) => (input -> IO output) -> [input] -> IO ByteString