Permalink
Browse files

[enhance] facebook: More partial work on facebook api update.

  • Loading branch information...
1 parent 97325e2 commit 69b7c7da4a7c2b3df3084327e0f4f63b22bfa000 @nrs135 nrs135 committed Oct 5, 2012
@@ -179,6 +179,8 @@ FbAuth(conf:Facebook.config) = {{
* @return A [FbAuth.page_token_res] with either a page token or
* an error in case of failure
*/
+ // TODO: We should really get this from /PAGE_ID?fields=access_token but that
+ // just says that it has no access_token field. ????
application_page_token(id, page_name, token) : FbAuth.page_token_res =
match FbLib.fb_get(graph_url, "/{id}/accounts?access_token={token}", []) with
| {none} -> {error=Facebook.make_error("application_page_token","Network error")}
@@ -233,14 +233,14 @@ type Facebook.feed = {
/** A Facebook post for [FbGraph.Post.post]. */
type Facebook.post = {
- message : string
- link : string
- picture : string
- name : string
- caption : string
- description : string
+ message : option(string)
+ link : option(string)
+ picture : option(string)
+ name : option(string)
+ caption : option(string)
+ description : option(string)
actions : list(Facebook.feed_link)
- privacy : string
+ privacy : option(string)
}
type Facebook.property =
@@ -360,7 +360,7 @@ Facebook = {{
| { friends_about_me } -> "friends_about_me"
| { friends_activities } -> "friends_activities"
| { friends_birthday } -> "friends_birthday"
- | { friends_checkins } -> "friends_checkins"
+ | { friends_checkins } -> "friends_checkins"
| { friends_education_history } -> "friends_education_history"
| { friends_events } -> "friends_events"
| { friends_groups } -> "friends_groups"
Oops, something went wrong.

0 comments on commit 69b7c7d

Please sign in to comment.