From 37b35623b74d93005234935165444404e832d40a Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 16 Apr 2014 10:42:15 +0300
Subject: [PATCH] Disable some under-tested parallelism

---
 Data/Hackage.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Data/Hackage.hs b/Data/Hackage.hs
index 8fcd240..a9fc269 100644
--- a/Data/Hackage.hs
+++ b/Data/Hackage.hs
@@ -251,6 +251,8 @@ createView viewName modifyCabal src sink = withSystemTempDirectory "createview"
                 return $ asSet $ singletonSet relfp
 
 -- FIXME put in conduit-combinators
+parMapMC _ = mapMC
+{- FIXME
 parMapMC :: (MonadIO m, MonadBaseControl IO m)
          => Int
          -> (i -> m o)
@@ -297,4 +299,4 @@ parMapMC threads f = evalStateC 0 $ do
             case mx of
                 Nothing -> return $ front []
                 Just x -> go $ front . (x:)
-
+-}