sync :: IO ()
sync = handleTokenRefresh sync' <$> loadAccessToken >>= withHttp
sync :: IO ()
sync = handleTokenRefresh sync' <$> loadAccessToken >>= withHttp
sync = handleTokenRefresh sync' <$> loadAccessToken >>= withHttp