> fromSeconds' 100 :: DiffTime 100s > fromSeconds' 100 ^+^ fromSeconds' 100 ^* 4 500s > fromSeconds' 100 ^-^ fromSeconds' 100 ^/ 4 75s
>>> parseOnly diffTime "10" Right 10sVarious units (seconds, minutes, hours, days):
>>> parseOnly diffTime "10s" Right 10s
>>> parseOnly diffTime "10m" Right 600s
>>> parseOnly diffTime "10h" Right 36000s
>>> parseOnly diffTime "10d" Right 864000sMetric prefixes to seconds (down to Pico):
>>> parseOnly diffTime "10ms" Right 0.01s
>>> parseOnly diffTime "10μs" Right 0.00001s
>>> parseOnly diffTime "10us" Right 0.00001s
>>> parseOnly diffTime "10ns" Right 0.00000001s
>>> parseOnly diffTime "10ps" Right 0.00000000001sNegative values:
>>> parseOnly diffTime "-1s" Right -1sUnsupported units:
>>> parseOnly diffTime "1k" Left "diffTime: Failed reading: Unsupported unit: \"k\""
>>> parseOnly diffTime "10" Right 10sVarious units (seconds, minutes, hours, days):
>>> parseOnly diffTime "10s" Right 10s
>>> parseOnly diffTime "10m" Right 600s
>>> parseOnly diffTime "10h" Right 36000s
>>> parseOnly diffTime "10d" Right 864000sMetric prefixes to seconds (down to Pico):
>>> parseOnly diffTime "10ms" Right 0.01sNotice that "μs" is not supported, because it's not ASCII.
>>> parseOnly diffTime "10us" Right 0.00001s
>>> parseOnly diffTime "10ns" Right 0.00000001s
>>> parseOnly diffTime "10ps" Right 0.00000000001sNegative values:
>>> parseOnly diffTime "-1s" Right -1sUnsupported units:
>>> parseOnly diffTime "1k" Left "diffTime: Failed reading: Unsupported unit: \"k\""
import qualified Data.Time.Clock as T difftime :: T.DiffTime diffTimeToTimeOfDay difftimeExample with the TimeOfDay type from time:
import qualified Data.Time.Clock as T timeofday :: T.TimeOfDay diffTimeToTimeOfDay $ T.timeOfDayToTime timeofday