Skip to content

Commit

Permalink
convert planet deps to pkg deps
Browse files Browse the repository at this point in the history
  • Loading branch information
rmculpepper committed Oct 20, 2013
1 parent 94c5aac commit 55663b2
Show file tree
Hide file tree
Showing 6 changed files with 18 additions and 14 deletions.
6 changes: 5 additions & 1 deletion info.rkt
Expand Up @@ -5,5 +5,9 @@
#lang info

(define collection 'multi)
(define deps '("base"))
(define deps '("base"
"sxml"
"planet-neil-html-writing1"
"compatibility-lib"
"web-server-lib"))
(define build-deps '("racket-doc" "scribble-lib"))
4 changes: 2 additions & 2 deletions webapi/atom.rkt
@@ -1,10 +1,10 @@
;; Copyright 2011-2012 Ryan Culpepper
;; Copyright 2011-2013 Ryan Culpepper
;; Released under the terms of the LGPL version 3 or later.
;; See the file COPYRIGHT for details.

#lang racket/base
(require racket/class
(planet clements/sxml2:1)
sxml
"private/sxml.rkt")
(provide atom<%>
atom)
Expand Down
6 changes: 3 additions & 3 deletions webapi/blogger.rkt
@@ -1,4 +1,4 @@
;; Copyright 2011-2012 Ryan Culpepper
;; Copyright 2011-2013 Ryan Culpepper
;; Released under the terms of the LGPL version 3 or later.
;; See the file COPYRIGHT for details.

Expand All @@ -12,8 +12,8 @@
"private/net.rkt"
"private/has-atom.rkt"
"private/sxml.rkt"
(planet clements/sxml2:1)
(planet neil/html-writing:1))
sxml
neil/html-writing1/main)
(provide blogger-scope
blogger<%>
blogger%
Expand Down
4 changes: 2 additions & 2 deletions webapi/picasa.rkt
@@ -1,4 +1,4 @@
;; Copyright 2011-2012 Ryan Culpepper
;; Copyright 2011-2013 Ryan Culpepper
;; Released under the terms of the LGPL version 3 or later.
;; See the file COPYRIGHT for details.

Expand All @@ -12,7 +12,7 @@
"private/net.rkt"
"private/has-atom.rkt"
"private/sxml.rkt"
(planet clements/sxml2:1))
sxml)
(provide picasa-scope
picasa<%>
picasa-album<%>
Expand Down
10 changes: 5 additions & 5 deletions webapi/private/oauth2.rkt
@@ -1,4 +1,4 @@
;; Copyright 2011-2012 Ryan Culpepper
;; Copyright 2011-2013 Ryan Culpepper
;; Released under the terms of the LGPL version 3 or later.
;; See the file COPYRIGHT for details.

Expand All @@ -8,7 +8,7 @@
net/url
net/uri-codec
"net.rkt"
(planet neil/json-parsing:1))
json)
(provide oauth2-auth-server<%>
oauth2-auth-server

Expand Down Expand Up @@ -207,7 +207,7 @@ Reference: http://code.google.com/apis/accounts/docs/OAuth2.html
[json
(get/url (url-add-query tokeninfo-url
`((access_token . ,(get-access-token #:who who))))
#:handle json->sjson
#:handle read-json
#:who who)])
(unless (equal? (hash-ref json 'audience #f) (send client get-id))
(error who "invalid token: not issued to client"))
Expand Down Expand Up @@ -235,7 +235,7 @@ Reference: http://code.google.com/apis/accounts/docs/OAuth2.html
#:headers (form-headers)
#:data (body/acquire-token #:auth-code auth-code
#:redirect-uri redirect-uri)
#:handle json->sjson
#:handle read-json
;; FIXME: add #:fail arg that reads json error response
#:who who))

Expand All @@ -252,7 +252,7 @@ Reference: http://code.google.com/apis/accounts/docs/OAuth2.html
(post/url (send auth-server get-token-url)
#:headers (form-headers)
#:data (body/refresh-token)
#:handle json->sjson
#:handle read-json
;; FIXME: add #:fail arg that reads json error response
#:who who))

Expand Down
2 changes: 1 addition & 1 deletion webapi/private/sxml.rkt
Expand Up @@ -4,7 +4,7 @@

#lang racket/base
(require (only-in mzlib/etc begin-lifted)
(planet clements/sxml2:1))
sxml)
(provide read-sxml
namespace-names
xpath-nss
Expand Down

0 comments on commit 55663b2

Please sign in to comment.