commit 62094a4e9c20b1f40c9a4c119c943bf4a0483b3d
from: Omar Polo <op@omarpolo.com>
date: Fri Oct 15 21:44:13 2021 UTC

fix the various is-* functions

commit - 0c76ea8b82b9d5f72359186f2321d4257a917cb9
commit + 62094a4e9c20b1f40c9a4c119c943bf4a0483b3d
blob - d6893054dd424cf0413db01feac1c84bf0d1594f
blob + 0b9b3b24d991b2187c5923f63bac35cea31de034
--- src/gemini/core.clj
+++ src/gemini/core.clj
@@ -33,12 +33,12 @@
    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)))