From 7ba2d68b28e6e6b44c58bf0d892c0a90039761cd Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@brycecovertoperations.com>
Date: Mon, 21 Mar 2022 09:08:04 -0700
Subject: [PATCH] minor bug.

---
 src/clj/auto_ap/pdf/ledger.clj | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/src/clj/auto_ap/pdf/ledger.clj b/src/clj/auto_ap/pdf/ledger.clj
index 389bacf4..8dead893 100644
--- a/src/clj/auto_ap/pdf/ledger.clj
+++ b/src/clj/auto_ap/pdf/ledger.clj
@@ -68,13 +68,15 @@
                             ["98000 Other Expenses" 98000 98999]]})
 
 (defn in-range? [code]
-  (reduce
-    (fn [acc [start end]]
-      (if (<= start code end)
-        (reduced true)
-        acc))
-    false
-    (vals ranges)))
+  (if code 
+    (reduce
+      (fn [acc [start end]]
+        (if (<= start code end)
+          (reduced true)
+          acc))
+      false
+      (vals ranges))
+    false))
 
 (defn locations [data]
   (->> data