diff options
| author | joe <joe@jerkface.net> | 2018-06-22 22:16:55 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-22 22:16:55 -0400 |
| commit | 9d8a4436a2d894030a51bba2b773901ffdc4788d (patch) | |
| tree | f583e9c4a98c7085eaca33f9a9d39dad58a70351 /examples/dhtd.hs | |
| parent | f5f854c8144dc29086928a94b2ea86cfae0d0557 (diff) | |
Quieted some warnings.
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index f96f0ba7..1821cb1c 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -482,14 +482,14 @@ clientSession s@Session{..} sock cnum h = do | |||
| 482 | "gc" -> do hPutClient h "Performing garbage collection..." | 482 | "gc" -> do hPutClient h "Performing garbage collection..." |
| 483 | performMajorGC | 483 | performMajorGC |
| 484 | "" -> do | 484 | "" -> do |
| 485 | #if MIN_VERSION_base(4,11,1) | 485 | #if MIN_VERSION_base(4,10,1) |
| 486 | is_enabled <- getRTSStatsEnabled | 486 | is_enabled <- getRTSStatsEnabled |
| 487 | #else | 487 | #else |
| 488 | is_enabled <- getGCStatsEnabled | 488 | is_enabled <- getGCStatsEnabled |
| 489 | #endif | 489 | #endif |
| 490 | if is_enabled | 490 | if is_enabled |
| 491 | then do | 491 | then do |
| 492 | #if MIN_VERSION_base(4,11,1) | 492 | #if MIN_VERSION_base(4,10,1) |
| 493 | RTSStats{..} <- getRTSStats | 493 | RTSStats{..} <- getRTSStats |
| 494 | let r = [ ("bytesAllocated", show allocated_bytes) | 494 | let r = [ ("bytesAllocated", show allocated_bytes) |
| 495 | , ("numGcs", show gcs) | 495 | , ("numGcs", show gcs) |