    (let [opts (assoc options
                      :coder (or (:coder options) (make-nippy-coder)))]
      (pt->>
-      (or (:name options) (str "read-text-file-from"
-                               (clean-filename from)))
+      (or (:name opts) (str "read-text-file-from"
+                            (clean-filename from)))
       p
-      (read-text-file from (-> options
+      (read-text-file from (-> opts
                                (dissoc :coder)
                                (assoc :name "read-text-file")))
-      (from-edn (assoc options :name "parse-edn")))))
+      (from-edn (assoc opts :name "parse-edn")))))
   ([from p] (read-edn-file from {} p)))
 
 

                     return-type #(json/decode % nil return-type)
                     :else json/decode)]
     (pt->>
      (or (:name options) "read-json-files")
      from
      (read-text-files (-> options
                           (dissoc :coder)
                           (assoc :name "read-json-files")))
      (dmap decode-fn

                     return-type #(json/decode % nil return-type)
                     :else json/decode)]
     (pt->>
      (or (:name opts) (str "read-json-file-from-" (clean-filename from)))
      p
      (read-text-file from (-> opts
                               (dissoc :coder)
                               (assoc :name "read-text-file")))
      (dmap decode-fn
            (assoc opts :name "json-decode")))))
  ([from p] (read-json-file from {} p)))


