Fix building with ghc-events-0.20 (#22)

mpickering · Jan 31, 2025 · c0b2bfc · c0b2bfc
1 parent 0eecaa3
commit c0b2bfc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/HsSpeedscope.hs b/src/HsSpeedscope.hs
@@ -219,7 +219,7 @@ processEventsDefault elProf (Event _t ei _c) =
     HeapProfCostCentre n l m s _ ->
       elProf { cost_centres = CostCentre n l m s : cost_centres elProf }
     ProfSampleCostCentre t _ _ st ->
-      elProf { el_samples = Sample t (V.toList st) : el_samples elProf }
+      elProf { el_samples = Sample (fromIntegral t) (V.toList st) : el_samples elProf }
     _ ->
       elProf