                               "]"])}))))
 
 (defn ->cli-args [m & [positional {:keys [preserve-names?]}]]
-  (let [m    (cond-> (merge (meta-config) (update-vpc-value m))
+  (let [m    (cond-> (merge (meta-config) (-> m (update-vpc-value) (update-dead-letter-value)))
                (not preserve-names?)
-               (set/rename-keys {:name :function-name :vpc :vpc-config}))
+               (set/rename-keys {:name :function-name :vpc :vpc-config :dead-letter :dead-letter-config}))
         args (flatten
               (for [[k v] m]
                 [(str "--" (name k))

    args/*region*      (assoc :region  (name args/*region*))
    args/*aws-profile* (assoc :profile (name args/*aws-profile*))))

(defn update-vpc-value [{:keys [vpc] :as fn-spec}]
  (if-not vpc
    fn-spec

(defn- update-function-config! [fn-spec]
  (lambda-cli!
   :update-function-configuration
   (-> (merge fn-spec-defaults fn-spec)
       (select-keys fn-config-args)
       ->cli-args)))

