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

🔥 redundant parens.

Browse Source
This commit is contained in:
Rob Rix 2017-07-21 13:35:36 -04:00
parent 4f8a42650d
commit 4be8ad55d1
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) Decorate algebra term -> logMessage (Info "Decorate") *> pure (decoratorWithAlgebra algebra term)
Diff differ terms -> logMessage (Info "Diff") *> pure (differ terms) Diff differ terms -> logMessage (Info "Diff") *> pure (differ terms)
Render renderer input -> logMessage (Info "Render") *> pure (renderer input) 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) LiftIO action -> action)
task task
atomically (closeTMQueue logQueue) atomically (closeTMQueue logQueue)