File tree Expand file tree Collapse file tree 2 files changed +25
-1
lines changed Expand file tree Collapse file tree 2 files changed +25
-1
lines changed Original file line number Diff line number Diff line change @@ -445,6 +445,7 @@ getGcStats = do
445
445
446
446
-- | Empty GC statistics, as if the application hasn't started yet.
447
447
emptyGCStats :: Stats. GCStats
448
+ # if MIN_VERSION_base(4,10,0)
448
449
emptyGCStats = Stats. GCStats
449
450
{ bytesAllocated = 0
450
451
, numGcs = 0
@@ -464,7 +465,30 @@ emptyGCStats = Stats.GCStats
464
465
, wallSeconds = 0
465
466
, parTotBytesCopied = 0
466
467
, parMaxBytesCopied = 0
468
+ , mblocksAllocated = 0
467
469
}
470
+ # else
471
+ emptyGCStats = Stats. GCStats
472
+ { bytesAllocated = 0
473
+ , numGcs = 0
474
+ , maxBytesUsed = 0
475
+ , numByteUsageSamples = 0
476
+ , cumulativeBytesUsed = 0
477
+ , bytesCopied = 0
478
+ , currentBytesUsed = 0
479
+ , currentBytesSlop = 0
480
+ , maxBytesSlop = 0
481
+ , peakMegabytesAllocated = 0
482
+ , mutatorCpuSeconds = 0
483
+ , mutatorWallSeconds = 0
484
+ , gcCpuSeconds = 0
485
+ , gcWallSeconds = 0
486
+ , cpuSeconds = 0
487
+ , wallSeconds = 0
488
+ , parTotBytesCopied = 0
489
+ , parMaxBytesCopied = 0
490
+ }
491
+ # endif
468
492
#else
469
493
getGcStats = Stats. getGCStats
470
494
#endif
Original file line number Diff line number Diff line change @@ -31,7 +31,7 @@ library
31
31
32
32
build-depends :
33
33
ghc-prim < 0.6 ,
34
- base >= 4.5 && < 4.10 ,
34
+ base >= 4.5 && < 4.11 ,
35
35
containers >= 0.5 && < 0.6 ,
36
36
text < 1.3 ,
37
37
unordered-containers < 0.3
You can’t perform that action at this time.
0 commit comments