anyone have any idea why the following code isn't working?

http://sprunge.us/LfJf

It just gives: StatusCodeException 400 (Chunk "{\"error\":{\"type\":\"OAuthException\",\"message\":\"Missing client_id parameter.\"}}" Empty)

Trying to follow this: http://hackage.haskell.org/packages/archive/authenticate/0.9.0.1/doc/html/Web-Authenticate-Facebook.html