fix it harder

Author: TravisWhitaker

System/Metrics.hs

@@ -492,14 +492,14 @@ registerGcMetrics =
      , ("rts.gc.gc_wall_ms"               , Counter . sToMs . Stats.gcWallSeconds)
      , ("rts.gc.cpu_ms"                   , Counter . sToMs . Stats.cpuSeconds)
      , ("rts.gc.wall_ms"                  , Counter . sToMs . Stats.wallSeconds)
-     , ("rts.gc.max_bytes_used"           , Gauge . Stats.maxBytesUsed)
-     , ("rts.gc.current_bytes_used"       , Gauge . Stats.currentBytesUsed)
-     , ("rts.gc.current_bytes_slop"       , Gauge . Stats.currentBytesSlop)
-     , ("rts.gc.max_bytes_slop"           , Gauge . Stats.maxBytesSlop)
-     , ("rts.gc.peak_megabytes_allocated" , Gauge . Stats.peakMegabytesAllocated)
-     , ("rts.gc.par_tot_bytes_copied"     , Gauge . gcParTotBytesCopied)
-     , ("rts.gc.par_avg_bytes_copied"     , Gauge . gcParTotBytesCopied)
-     , ("rts.gc.par_max_bytes_copied"     , Gauge . Stats.parMaxBytesCopied)
+     , ("rts.gc.max_bytes_used"           , Gauge . fromIntegral . Stats.maxBytesUsed)
+     , ("rts.gc.current_bytes_used"       , Gauge . fromIntegral . Stats.currentBytesUsed)
+     , ("rts.gc.current_bytes_slop"       , Gauge . fromIntegral . Stats.currentBytesSlop)
+     , ("rts.gc.max_bytes_slop"           , Gauge . fromIntegral . Stats.maxBytesSlop)
+     , ("rts.gc.peak_megabytes_allocated" , Gauge . fromIntegral . Stats.peakMegabytesAllocated)
+     , ("rts.gc.par_tot_bytes_copied"     , Gauge . fromIntegral . gcParTotBytesCopied)
+     , ("rts.gc.par_avg_bytes_copied"     , Gauge . fromIntegral . gcParTotBytesCopied)
+     , ("rts.gc.par_max_bytes_copied"     , Gauge . fromIntegral . Stats.parMaxBytesCopied)
      ])
     getGcStats
     where