iartarisi

This has moved to its own repository at: 
https://github.com/SUSE-Cloud/keystone-hybrid-backend

iartarisi

(use http-client intarweb uri-common getopt-long json)

(define authorization-method
      '#(basic ((username . "user") (password . "pass"))))

(define (github-get-auth path)
  (with-input-from-request
   (make-request method: 'GET
                 uri: (uri-reference (string-append
                                      "https://api.github.com/" path))