hlint 1.9.2 → 1.9.3

raw patch · 3 files changed

+7/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGES.txt +2/−0
• hlint.cabal +1/−1
• src/Parallel.hs +4/−3

@@ -1,5 +1,7 @@ Changelog for HLint +1.9.3+    #73, fix multithreading and exceptions 1.9.2     #68, add --no-summary 1.9.1

@@ -1,7 +1,7 @@ cabal-version:      >= 1.6 build-type:         Simple name:               hlint-version:            1.9.2+version:            1.9.3 license:            BSD3 license-file:       LICENSE category:           Development

@@ -13,6 +13,7 @@ import System.IO.Unsafe import GHC.Conc(numCapabilities) import Control.Concurrent+import Control.Exception import Control.Monad  @@ -34,13 +35,13 @@     chan <- newChan     mapM_ (writeChan chan . Just) $ zip ms xs     replicateM_ numCapabilities (writeChan chan Nothing >> forkIO (f chan))-    parallel1 $ map takeMVar ms+    let throwE x = throw (x :: SomeException)+    parallel1 $ map (fmap (either throwE id) . takeMVar) ms     where         f chan = do             v <- readChan chan             case v of                 Nothing -> return ()                 Just (m,x) -> do-                    x' <- x-                    putMVar m x'+                    putMVar m =<< try x                     f chan