mirror of
https://github.com/correl/elm.git
synced 2024-12-22 11:09:08 +00:00
14 lines
196 B
Text
14 lines
196 B
Text
module Gigasecond exposing (add)
|
|
|
|
import Date
|
|
import Time
|
|
|
|
|
|
add : Date.Date -> Date.Date
|
|
add =
|
|
Date.toTime >> (+) gigasecond >> Date.fromTime
|
|
|
|
|
|
gigasecond : Time.Time
|
|
gigasecond =
|
|
10 ^ 12
|