From 77e0b635d0e73085cdd893fa8b65785507ebbf4b Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Fri, 26 May 2017 15:08:18 -0400
Subject: [PATCH] Avoid redundant sparking of the outputs.

---
 src/Semantic.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Semantic.hs b/src/Semantic.hs
index 60e6748ad..f0eb1bb9e 100644
--- a/src/Semantic.hs
+++ b/src/Semantic.hs
@@ -6,7 +6,6 @@ module Semantic
 , parseBlob
 ) where
 
-import Control.Parallel.Strategies
 import qualified Control.Concurrent.Async as Async
 import Data.Functor.Both
 import Data.Record
@@ -71,4 +70,4 @@ parseBlob decorator SourceBlob{..} = decorator source <$> runParser (parserForLa
 renderConcurrently :: (Monoid output, StringConv output ByteString) => (input -> IO output) -> [input] -> IO ByteString
 renderConcurrently f diffs = do
   outputs <- Async.mapConcurrently f diffs
-  pure $ toS (mconcat (outputs `using` parTraversable rseq))
+  pure $ toS (mconcat outputs)