wb: fix faulty calculation resulting div-by-zero on Darwin

IntersectMBO · Aug 24, 2022 · 8e9e035 · 8e9e035
1 parent 9b5fe60
commit 8e9e035
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/trace-resources/src/Cardano/Logging/Resources/Darwin.hsc b/trace-resources/src/Cardano/Logging/Resources/Darwin.hsc
@@ -106,7 +106,7 @@ readResourceStatsInternal = getProcessID >>= \pid -> do
    nsToCenti :: GhcStats.RtsTime -> Word64
    nsToCenti = fromIntegral . (`div` 10000000)
    timeValToCenti :: TIME_VALUE_T -> Word64
-   timeValToCenti tv = 10000 `div` (usFromTimeValue tv)
+   timeValToCenti tv = usFromTimeValue tv `div` 10000
 
 usFromTimeValue :: TIME_VALUE_T -> Word64
 usFromTimeValue (TIME_VALUE_T s us) = s * 1000000 + us