From 7959d9c75daa982fc5c0bbeb689e95e77fade119 Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Fri, 20 Oct 2017 16:52:07 -0700
Subject: [PATCH] facebook oauth compiles now

---
 sec/com/facebook.hoon | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/sec/com/facebook.hoon b/sec/com/facebook.hoon
index 6a3a19e8d2..885b36fd77 100644
--- a/sec/com/facebook.hoon
+++ b/sec/com/facebook.hoon
@@ -13,7 +13,7 @@
 ::
 ::::
   ::
-|_  {bal/(bale keys:oauth2) access-token/token:oauth2}
+|_  {bal/(bale:eyre keys:oauth2) access-token/token:oauth2}
 ::  ++aut is a "standard oauth2" core, which implements the
 ::  most common handling of oauth2 semantics. see lib/oauth2 for more details,
 ::  and examples at the bottom of the file.
@@ -29,12 +29,12 @@
 ++  receive-auth-query-string  (in-code-to-token:aut exchange-url)
 ::
 ++  receive-auth-response
-  |=  a/httr  ^-  core-move:aut
+  |=  a/httr:eyre  ^-  core-move:aut
   ?:  (bad-response:aut p.a)
     [%give a]  :: [%redo ~]  ::  handle 4xx?
   =+  `{access-token/@t expires-in/@u}`(grab-expiring-token:aut a)
   ?.  (lth expires-in ^~((div ~d7 ~s1)))  ::  short-lived token
-    [[%redo ~] ..bak(access-token access-token)]
+    [[%redo ~] +>.$(access-token access-token)]
   :-  %send
   %^  request-token:aut  exchange-url
     grant-type='fb_exchange_token'