1 files changed, 5 insertions, 0 deletions
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]