type hints for query-param-url->java-url

This commit is contained in:
Gered 2014-03-31 19:25:01 -04:00
parent 5baeadb0f5
commit 21e5939cb2
2 changed files with 5 additions and 3 deletions

View file

@ -3,7 +3,8 @@
(:import (java.awt RenderingHints Graphics2D Image) (:import (java.awt RenderingHints Graphics2D Image)
(java.awt.image BufferedImage Raster) (java.awt.image BufferedImage Raster)
(javax.imageio ImageIO) (javax.imageio ImageIO)
(java.io File)) (java.io File)
(java.net URL))
(:require [clojure.string :as str] (:require [clojure.string :as str]
[cemerick.url :as url] [cemerick.url :as url]
[toascii.util :refer [query-param-url->java-url]]) [toascii.util :refer [query-param-url->java-url]])

View file

@ -54,11 +54,12 @@
(url/map->query query)))) (url/map->query query))))
(when anchor (str \# anchor)))))) (when anchor (str \# anchor))))))
(defn query-param-url->java-url [^String url] (defn query-param-url->java-url
(^URL [^String url]
(->> url (->> url
(url/url) (url/url)
(encode-url-path-components) (encode-url-path-components)
(URL.))) (URL.))))
(defn parse-int [s] (defn parse-int [s]
(try (try