summaryrefslogtreecommitdiff
path: root/src/utils.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/utils.clj')
-rwxr-xr-xsrc/utils.clj7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/utils.clj b/src/utils.clj
index 33a247f..5a2c913 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -76,8 +76,11 @@
;; Parsing
-(defn maybe-parse-int [s f]
- (if s (Integer/parseInt s) f))
+(defn maybe-parse-int
+ ([s] (Integer/parseInt s))
+ ([s default]
+ (try (Integer/parseInt s)
+ (catch NumberFormatException _ default))))
(defn maybe-parse-long [s f]
(if s (Long/parseLong s) f)) \ No newline at end of file