authorize token request = request 
    { requestHeaders = 
      [ (hAuthorization, B8.pack $ "Bearer " ++ token) ] 
      ++ requestHeaders request }
authorize token request = request 
    { requestHeaders = 
      [ (hAuthorization, B8.pack $ "Bearer " ++ token) ] 
      ++ requestHeaders request }
authorize token request = request 
    { requestHeaders = 
      [ (hAuthorization, B8.pack $ "Bearer " ++ token) ] 
      ++ requestHeaders request }