onasty: web/src/ExpirationOptions.elm (e4abd99)

onasty/web/src/ExpirationOptions.elm (view raw)

Smirnov Oleksandr web: create note page (#144)..., 11 months ago

module ExpirationOptions exposing (ExpiresAt, expirationOptions)


type alias ExpiresAt =
    { text : String, value : Int }


expirationOptions : List ExpiresAt
expirationOptions =
    [ { text = "Never expires (default)", value = 0 }
    , { text = "1 hour", value = 60 * 60 * 1000 }
    , { text = "12 hours", value = 12 * 60 * 60 * 1000 }
    , { text = "1 day", value = 24 * 60 * 60 * 1000 }
    , { text = "3 days", value = 3 * 24 * 60 * 60 * 1000 }
    , { text = "7 days", value = 7 * 24 * 60 * 60 * 1000 }
    ]

1	module ExpirationOptions exposing (ExpiresAt, expirationOptions)
2
3
4	type alias ExpiresAt =
5	{ text : String, value : Int }
6
7
8	expirationOptions : List ExpiresAt
9	expirationOptions =
10	[ { text = "Never expires (default)", value = 0 }
11	, { text = "1 hour", value = 60 * 60 * 1000 }
12	, { text = "12 hours", value = 12 * 60 * 60 * 1000 }
13	, { text = "1 day", value = 24 * 60 * 60 * 1000 }
14	, { text = "3 days", value = 3 * 24 * 60 * 60 * 1000 }
15	, { text = "7 days", value = 7 * 24 * 60 * 60 * 1000 }
16	]