2016-08-26 03:31:54 +00:00
|
|
|
module Gigasecond exposing (add)
|
|
|
|
|
|
|
|
|
|
import Date
|
|
|
|
|
import Time
|
|
|
|
|
|
|
|
|
|
|
2016-08-29 04:01:33 +00:00
|
|
|
add : Date.Date -> Date.Date
|
|
|
|
|
add =
|
|
|
|
|
Date.toTime >> (+) gigasecond >> Date.fromTime
|
2016-08-26 03:31:54 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
gigasecond : Time.Time
|
|
|
|
|
gigasecond =
|
|
|
|
|
10 ^ 12
|
