facebook/Haxl
1
1
Fork 0
mirror of https://github.com/facebook/Haxl.git synced 2024-12-24 17:23:03 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #34 from kantp/thunkleak

Browse Source 
Close thunk leak in roundstats.
This commit is contained in:
Simon Marlow 2015-07-17 16:25:11 +01:00
commit 1d996291a4
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Haxl/Core/Monad.hs
View File

@ -56,6 +56,7 @@ import Control.Exception (AllocationLimitExceeded(..))
import Control.Monad
import qualified Control.Exception as Exception
import Control.Applicative hiding (Const)
import Control.DeepSeq
import GHC.Exts (IsString(..))
#if __GLASGOW_HASKELL__ < 706
import Prelude hiding (catch)
@ -526,7 +527,7 @@ performFetches n env reqs = do
let roundtime = realToFrac (diffUTCTime t1 t0) :: Double
ifReport f 1 $
modifyIORef' sref $ \(Stats rounds) ->
modifyIORef' sref $ \(Stats rounds) -> roundstats `deepseq`
Stats (RoundStats (microsecs roundtime) dsroundstats: rounds)
ifTrace f 1 $

1
haxl.cabal
View File

@ -31,6 +31,7 @@ library
base == 4.*,
bytestring >= 0.9 && < 0.11,
containers == 0.5.*,
deepseq,
directory >= 1.1 && < 1.3,
filepath >= 1.3 && < 1.5,
hashable == 1.2.*,