Revert "Fix meanJourneySpeed (was using the number of points instead …

…of the trip distance)" This reverts commit 7dd9fdc.
robstewart57 · Sep 3, 2011 · 6ea626a · 6ea626a
1 parent 7dd9fdc
commit 6ea626a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Data/GPS/Gps2HtmlReport/JourneyStats.hs b/Data/GPS/Gps2HtmlReport/JourneyStats.hs
@@ -58,7 +58,7 @@ journeyDistance (point:points) = distance point (head points) + journeyDistance
 
 -- | Calculates the average speed of the journey
 meanJourneySpeed :: (Lat a, Lon a) => [a] -> Distance
-meanJourneySpeed points = journeyDistance points / totalDistance points
+meanJourneySpeed points = journeyDistance points / fromIntegral (length points)
 
 -- | Calculates the maximum speed
 maxSpeed :: [WptType] -> Speed