From 4be8ad55d1e6a8a05515e074c283488512239781 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 21 Jul 2017 13:35:36 -0400 Subject: [PATCH] :fire: redundant parens. --- src/Semantic/Task.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs index 916f7c73b..e0df928a4 100644 --- a/src/Semantic/Task.hs +++ b/src/Semantic/Task.hs @@ -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)