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

Revert "🔥 redundant parens."

Browse Source 
This reverts commit 62cf5bd8ab878c0f6fbf62f5358ea90c7c9034dc.
This commit is contained in:
Rob Rix 2017-07-21 13:41:02 -04:00
parent 4be8ad55d1
commit d575ca6dce
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Semantic/Task.hs
View File

@ -139,7 +139,7 @@ runTask task = do
Decorate algebra term -> logMessage (Info "Decorate") *> pure (decoratorWithAlgebra algebra term)
Diff differ terms -> logMessage (Info "Diff") *> pure (differ terms)
Render renderer input -> logMessage (Info "Render") *> pure (renderer input)
Distribute tasks -> logMessage (Info "Distribute") *> Async.mapConcurrently runTask tasks >>= pure . withStrategy (parTraversable rseq)
Distribute tasks -> logMessage (Info "Distribute") *> (Async.mapConcurrently runTask tasks >>= pure . withStrategy (parTraversable rseq))
LiftIO action -> action)
task
atomically (closeTMQueue logQueue)