silence ghc deprecation warning

1 files changed, 20 insertions, 20 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index da93bed4..a2aeab22 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -485,28 +485,28 @@ clientSession s@Session{..} sock cnum h = do
                         "gc" -> do hPutClient h "Performing garbage collection..."
                                    performMajorGC
                         "" -> do
-                            is_enabled <- getGCStatsEnabled
+                            is_enabled <- getRTSStatsEnabled
                             if is_enabled
                              then do
-                                GCStats{..} <- getGCStats
-                                let r = [ ("bytesAllocated", show bytesAllocated)
-                                        , ("numGcs", show numGcs)
-                                        , ("maxBytesUsed", show maxBytesUsed)
-                                        , ("numByteUsageSamples", show numByteUsageSamples)
-                                        , ("cumulativeBytesUsed", show cumulativeBytesUsed)
-                                        , ("bytesCopied", show bytesCopied)
-                                        , ("currentBytesUsed", show currentBytesUsed)
-                                        , ("currentBytesSlop", show currentBytesSlop)
-                                        , ("maxBytesSlop", show maxBytesSlop)
-                                        , ("peakMegabytesAllocated", show peakMegabytesAllocated)
-                                        , ("mutatorCpuSeconds", show mutatorCpuSeconds)
-                                        , ("mutatorWallSeconds", show mutatorWallSeconds)
-                                        , ("gcCpuSeconds", show gcCpuSeconds)
-                                        , ("gcWallSeconds", show gcWallSeconds)
-                                        , ("cpuSeconds", show cpuSeconds)
-                                        , ("wallSeconds", show wallSeconds)
-                                        , ("parTotBytesCopied", show parTotBytesCopied)
-                                        , ("parMaxBytesCopied", show parMaxBytesCopied)
+                                RTSStats{..} <- getRTSStats
+                                let r = [ ("bytesAllocated", show allocated_bytes)
+                                        , ("numGcs", show gcs)
+                                        , ("maxBytesUsed", show max_live_bytes)
+                                        --, ("numByteUsageSamples", show numByteUsageSamples)
+                                        , ("cumulativeBytesUsed", show cumulative_live_bytes)
+                                        , ("bytesCopied", show copied_bytes)
+                                        , ("currentBytesUsed", show allocated_bytes)
+                                        --, ("currentBytesSlop", show currentBytesSlop)
+                                        , ("maxBytesSlop", show max_slop_bytes)
+                                        -- , ("peakMegabytesAllocated", show peakMegabytesAllocated)
+                                        , ("mutatorCpuNanoseconds", show mutator_cpu_ns)
+                                        , ("mutatorWallNanoseconds", show mutator_elapsed_ns)
+                                        , ("gcCpuSeconds", show gc_cpu_ns)
+                                        , ("gcWallSeconds", show gc_elapsed_ns)
+                                        , ("cpuSeconds", show cpu_ns)
+                                        , ("wallSeconds", show elapsed_ns)
+                                        , ("parTotBytesCopied", show par_copied_bytes)
+                                        , ("parMaxBytesCopied", show cumulative_par_max_copied_bytes)
                                         ]
                                 hPutClient h $ showReport r
                             else hPutClient h "Run with +RTS -T to obtain live memory-usage information."