WIP: Send a tweet
This commit is contained in:
parent
62b04965c3
commit
fba2d3b4f9
2 changed files with 7 additions and 1 deletions
|
@ -38,7 +38,11 @@ let rec check ctx =
|
|||
in
|
||||
if 0 = timeout
|
||||
then (
|
||||
print_endline "TODO: We are tweeting here. :)";
|
||||
(* Tweet and returns to profile page *)
|
||||
tweet
|
||||
ctx
|
||||
"This tweet is for the Twitter's CTO: Don't suspend my account for inactivity.";
|
||||
go_to_profile ctx;
|
||||
(* Wait the maximum time since we just tweeted *)
|
||||
recheck max_time)
|
||||
else (* Wait the amount of time calculated from the post *)
|
||||
|
|
|
@ -133,3 +133,5 @@ let find_latest_tweet ctx =
|
|||
(* Returns the most recent date *)
|
||||
Some (List.fold_left max min_int datetimes)
|
||||
;;
|
||||
|
||||
let tweet _ctx _msg = ()
|
||||
|
|
Loading…
Reference in a new issue