cljr-clean-ns

next
Marcin Kulik 8 years ago
parent c1c1ffde70
commit 527db9dd9b

@ -1,6 +1,7 @@
(ns asciinema.component.local-file-server (ns asciinema.component.local-file-server
(:require [asciinema.boundary.file-server :as file-server] (:require [asciinema.boundary
[asciinema.boundary.file-store :as file-store] [file-server :as file-server]
[file-store :as file-store]]
[ring.util.http-response :as response])) [ring.util.http-response :as response]))
(defrecord LocalFileServer [file-store] (defrecord LocalFileServer [file-store]

@ -1,13 +1,12 @@
(ns asciinema.component.s3-file-server (ns asciinema.component.s3-file-server
(:require [asciinema.boundary.file-server :as file-server] (:require [asciinema.boundary.file-server :as file-server]
[aws.sdk.s3 :as s3] [clj-time
[clj-time.core :as time] [coerce :as timec]
[clj-time.coerce :as timec] [core :as time]]
[ring.util.http-response :as response]) [ring.util.http-response :as response])
(:import com.amazonaws.services.s3.model.ResponseHeaderOverrides (:import com.amazonaws.auth.BasicAWSCredentials
com.amazonaws.services.s3.AmazonS3Client com.amazonaws.services.s3.AmazonS3Client
com.amazonaws.auth.BasicAWSCredentials [com.amazonaws.services.s3.model GeneratePresignedUrlRequest ResponseHeaderOverrides]))
com.amazonaws.services.s3.model.GeneratePresignedUrlRequest))
(defn- s3-client* [cred] (defn- s3-client* [cred]
(let [credentials (BasicAWSCredentials. (:access-key cred) (:secret-key cred))] (let [credentials (BasicAWSCredentials. (:access-key cred) (:secret-key cred))]

Loading…
Cancel
Save