@RebeccaSkinner
In the section “Wrapping Basic Data Types”, there is the velocity function and gravity (i.e. on earth at sea level) is being defined as a velocity, but gravity is an acceleration, not a velocity and has dimensions length / time squared, so the dimensions are off.
So I would suggest using a real velocity here like the speed of light:
speedOfLight :: Double
speedOfLight =
let
meters = 299792458.0 :: Double
seconds = 1.0 :: Double
in velocity meters seconds