From ecc63ebad90d1e9d4ea162d0e8227e38104ae594 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Wed, 16 Jan 2019 19:24:16 +0100 Subject: ... --- src/ataxia_time.erl | 37 ++++++++++++++++++++++++++++++------- 1 file changed, 30 insertions(+), 7 deletions(-) (limited to 'src/ataxia_time.erl') diff --git a/src/ataxia_time.erl b/src/ataxia_time.erl index 203f8bd..97dd954 100644 --- a/src/ataxia_time.erl +++ b/src/ataxia_time.erl @@ -3,14 +3,29 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% --type type() :: none. +-type type() :: (never | calendar:datetime()). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -export_type([type/0]). --export([add/2, is_past/1, now/0]). +-export +( + [ + never/0, + now/0, + in/1 + ] +). + +-export +( + [ + is_past/1, + to_string/1 + ] +). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -19,11 +34,19 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% --spec add (type(), type()) -> type(). -add (T0, _T1) -> T0. - -spec is_past (type()) -> boolean(). -is_past (_T0) -> true. +is_past (never) -> false; +is_past (_Time) -> true. + +-spec never () -> type(). +never () -> never. -spec now () -> type(). -now () -> none. +now () -> never. + +-spec in (non_neg_integer()) -> type(). +in (_Seconds) -> never. + +-spec to_string (type()) -> binary(). +to_string (never) -> <<"Never">>; +to_string (_Date) -> <<"At some point">>. -- cgit v1.2.3-70-g09d2