umgeher/qdate
0
Fork 0
Code Issues Pull requests Releases Activity

Add before and after as operators

Browse source
This commit is contained in:
Jesse Gumm 2016-03-05 13:51:45 -06:00
parent f39b4edb92
commit 5e43673c34
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/qdate.erl
View file

@ -267,7 +267,7 @@ to_date(ToTZ, Disambiguate, RawDate) ->
{ParsedDate,ExtractedTZ};
{ParsedDate,ParsedTZ} ->
{ParsedDate,ParsedTZ}
end,
end,
try raw_to_date(RawDate3) of
D={{_,_,_},{_,_,_}} ->
date_tz_to_tz(D, Disambiguate, FromTZ, ToTZ);
@ -403,10 +403,12 @@ compare(A, Op, B) ->
'=/=' -> Comp =/= 0;
'/=' -> Comp =/= 0;
'before'-> Comp =:= -1;
'<' -> Comp =:= -1;
'<=' -> Comp =:= -1 orelse Comp =:= 0;
'=<' -> Comp =:= -1 orelse Comp =:= 0;
'after' -> Comp =:= 1;
'>' -> Comp =:= 1;
'>=' -> Comp =:= 1 orelse Comp =:= 0;
'=>' -> Comp =:= 1 orelse Comp =:= 0