diff options
| author | sostler <sbostler@gmail.com> | 2010-02-28 11:23:52 -0500 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-02-28 11:23:52 -0500 |
| commit | aa48516c2100a6c1b2f2a67910dbd26387d80041 (patch) | |
| tree | b5d79c084ec9d1fa56125c0884d664255569d739 /src | |
| parent | 48ad041d2465d3e2875a37a8c6d94064ce953a3d (diff) | |
Added try-catch to maybe-parse-int
Diffstat (limited to 'src')
| -rwxr-xr-x | src/utils.clj | 7 |
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 |