haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-04 15:20:25 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Disable some under-tested parallelism

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-16 10:42:15 +03:00
parent b3a5c53a0b
commit 37b35623b7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Data/Hackage.hs
View File

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