minor fixes.

project.clj

@@ -73,7 +73,7 @@
     :plugins      [[lein-figwheel "0.5.13"]
                    [lein-pdo "0.1.1"]
                    [cider/cider-nrepl "0.16.0"]]
-    :jvm-opts ["-Dconfig=config/dev.edn" #_#_"--add-modules" "java.xml.bind"]}
+    :jvm-opts ["-Dconfig=config/dev.edn" "--add-modules" "java.xml.bind"]}
    :uberjar {:prep-tasks [["cljsbuild" "once" "min"] "compile"]}
    :provided {:dependencies [[org.clojure/clojurescript "1.10.238"]
                              [reagent "0.7.0"]

src/clj/auto_ap/yodlee/core.clj

@@ -47,12 +47,24 @@
         :body
         :account)))
 
+(defn get-account [i]
+  (let [cob-session (login-cobrand)
+        user-session (login-user cob-session)]
+    (-> (str (:yodlee-base-url env) (str "/accounts/" i)) 
+        (client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)}) 
+                     :as :json})
+        :body
+        :account)))
+
 (defn get-provider-accounts []
   (let [cob-session (login-cobrand)
         user-session (login-user cob-session)]
     (-> (str (:yodlee-base-url env) "/providerAccounts") 
-        (client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)}) 
+        (-> (client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
-                      :as :json}))))
+                         :as :json})
+            :body
+            :providerAccount)
+        )))
 
 (defn get-transactions []
   (let [cob-session (login-cobrand)
@@ -81,7 +93,7 @@
   (let [cob-session (login-cobrand)
         user-session (login-user cob-session)
         batch-size 100
-        get-transaction-batch (fn [skip]
+        get-transaction-batch (fn []
                                 (-> (str (:yodlee-base-url env) "/providerAccounts") 
 
                                     (client/get {:headers (doto
@@ -92,6 +104,20 @@
                                     ))]
 
     (get-transaction-batch)))
+
+(defn update-provider-account [pa]
+  (let [cob-session (login-cobrand)
+        user-session (login-user cob-session)
+        batch-size 100]
+
+    (-> (str (:yodlee-base-url env) "/providerAccounts?providerAccountIds=" pa) 
+
+        (client/put {:headers (doto
+                                  (merge base-headers {"Authorization" (auth-header cob-session user-session)})
+                                println) 
+                     :body "{\"dataSetName\": [\"BASIC_AGG_DATA\"]}"
+                     :as :json}))))
+
 (defn get-specific-transactions []
   (let [cob-session (login-cobrand)
         user-session (login-user cob-session)