commit - 0c76ea8b82b9d5f72359186f2321d4257a917cb9
commit + 62094a4e9c20b1f40c9a4c119c943bf4a0483b3d
blob - d6893054dd424cf0413db01feac1c84bf0d1594f
blob + 0b9b3b24d991b2187c5923f63bac35cea31de034
--- src/gemini/core.clj
+++ src/gemini/core.clj
61 "certificate not authorized"
62 "certificate not valid"})
-(defn is-input? [{c :code}] (= 1 (/ c 10)))
-(defn is-success? [{c :code}] (= 2 (/ c 10)))
-(defn is-redirect? [{c :code}] (= 3 (/ c 10)))
-(defn is-temporary-failure? [{c :code}] (= 4 (/ c 10)))
-(defn is-permanent-failure? [{c :code}] (= 5 (/ c 10)))
-(defn is-client-cert-required? [{c :code}] (= 6 (/ c 10)))
+(defn is-input? [{c :code}] (= 1 (quot c 10)))
+(defn is-success? [{c :code}] (= 2 (quot c 10)))
+(defn is-redirect? [{c :code}] (= 3 (quot c 10)))
+(defn is-temporary-failure? [{c :code}] (= 4 (quot c 10)))
+(defn is-permanent-failure? [{c :code}] (= 5 (quot c 10)))
+(defn is-client-cert-required? [{c :code}] (= 6 (quot c 10)))