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

More aligning.

Browse Source
This commit is contained in:
Rob Rix 2018-04-04 10:37:05 -04:00
parent f3f93379ce
commit 322d1cca71
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic/Task.hs
View File

@ -58,7 +58,7 @@ import System.Exit (die)
import System.IO (Handle, stderr)
data Distribute output where
Distribute :: Traversable t => t (Task output) -> Distribute (t output)
Distribute :: Traversable t => t (Task output) -> Distribute (t output)
Bidistribute :: Bitraversable t => t (Task output1) (Task output2) -> Distribute (t output1 output2)
data TaskF output where
@ -252,7 +252,7 @@ runTaskF = interpret (\ task -> case task of
-- | Statting and logging effects.
data Telemetry output where
WriteStat :: Stat -> Telemetry ()
WriteStat :: Stat -> Telemetry ()
WriteLog :: Level -> String -> [(String, String)] -> Telemetry ()
runTelemetry :: Members '[Reader LogQueue, Reader StatQueue, IO] effs => Eff (Telemetry ': effs) a -> Eff effs a