patch negative-int parser to return a negative number. fixes #27

youngnh · May 25, 2014 · 68845ca · 68845ca
1 parent f2e8d5a
commit 68845ca
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/parsatron/languages/bencode.clj b/src/parsatron/languages/bencode.clj
@@ -8,9 +8,12 @@
   (let->> [digits (many1 (digit))]
     (always (read-string (apply str digits)))))
 
+(defn neg [x]
+  (* -1 x))
+
 (defparser negative-int []
   (let->> [digits (>> (char \-) (many1 (digit)))]
-    (always (read-string (apply str digits)))))
+    (always (neg (read-string (apply str digits))))))
 
 (defparser ben-integer []
   (between (char \i) (char \e)