@@ -451,11 +451,11 @@ toms(c::Second) = 1000 * value(c)
451451toms (c:: Minute ) = 60000 * value (c)
452452toms (c:: Hour ) = 3600000 * value (c)
453453toms (c:: Period ) = 86400000 * days (c)
454- toms (c:: CompoundPeriod ) = isempty (c. periods) ? 0.0 : Float64 ( sum (toms, c. periods) )
454+ toms (c:: CompoundPeriod ) = isempty (c. periods) ? 0.0 : sum (p -> convert (Float64, toms (p)) :: Float64 , c. periods)
455455tons (x) = toms (x) * 1000000
456456tons (x:: Microsecond ) = value (x) * 1000
457457tons (x:: Nanosecond ) = value (x)
458- tons (c:: CompoundPeriod ) = isempty (c. periods) ? 0.0 : Float64 ( sum (tons, c. periods) )
458+ tons (c:: CompoundPeriod ) = isempty (c. periods) ? 0.0 : sum (p -> convert (Float64, tons (p)) :: Float64 , c. periods)
459459days (c:: Millisecond ) = div (value (c), 86400000 )
460460days (c:: Second ) = div (value (c), 86400 )
461461days (c:: Minute ) = div (value (c), 1440 )
@@ -465,7 +465,7 @@ days(c::Week) = 7 * value(c)
465465days (c:: Year ) = 365.2425 * value (c)
466466days (c:: Quarter ) = 91.310625 * value (c)
467467days (c:: Month ) = 30.436875 * value (c)
468- days (c:: CompoundPeriod ) = isempty (c. periods) ? 0.0 : Float64 ( sum (days, c. periods) )
468+ days (c:: CompoundPeriod ) = isempty (c. periods) ? 0.0 : sum (p -> convert (Float64, days (p)) :: Float64 , c. periods)
469469seconds (x:: Nanosecond ) = value (x) / 1000000000
470470seconds (x:: Microsecond ) = value (x) / 1000000
471471seconds (x:: Millisecond ) = value (x) / 1000
0 commit comments