-module(archive_fetcher).
-include("records.hrl").

-export([fetch/3]).

fetch(CalendarId, Year, Month) ->
  Start = {{Year, Month, 1}, {0, 0, 0}},
  End   = {{Year, Month, calendar:last_day_of_the_month(Year, Month)}, {23, 59, 59}},
  mnesia:dirty_select(event, [{#event{calendar_id = CalendarId,
    start_time = '$1', _ = '_'},
    [{'>=', '$1', {const, Start}}, {'=<', '$1', {const, End}}],
    ['$_']}]).