 
 (defn- parse-decimal
   [string-decimal]
-  (when-let [match (re-find #"(\d+)\/(\d+)" string-decimal)]
+  (when-let [match (re-find #"(-?\d+)\/(\d+)" string-decimal)]
     (with-precision 12
       (apply / (->> match
                     rest

               :split-date (:transaction-date transaction)
               :shares-gained (:quantity split-item)
               :commodity-account-id (:account-id split-item))
        (update-in [:items] adjust-trade-actions))))

(defn- process-transaction-item
  [item]

                (filter #(= :buy (:action %)))
                first)]
    (-> transaction
        abs-items
        (assoc :action :transfer
               :shares (:quantity to)
               :value (:value to)
