From d6c8d8ab019721ba47a289de97c95e9786dd5ded Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Mon, 21 Feb 2011 23:28:46 -0500 Subject: sostler add favorite to frontpage --- src/utils.clj | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/utils.clj') diff --git a/src/utils.clj b/src/utils.clj index eb89cf1..22a0b5d 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -321,6 +321,11 @@ ;; Parsing +(defn to-int [x] + (cond (integer? x) x + (string? x) (Integer/parseInt x) + :else (throw (Exception. (str "Invalid argument " x))))) + (defn maybe-parse-int ([s] (maybe-parse-int s 0)) ([s a] -- cgit v1.2.3-70-g09d2