Skip to content
Browse files

arr now checks whether input already is an arrow

  • Loading branch information...
1 parent d8cf11d commit cca2eb0698b69e424ff07dd7fd45368adacc7a33 @odyssomay committed
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/Hafni/arrow.clj
View
4 src/Hafni/arrow.clj
@@ -59,5 +59,7 @@
(||| [this arr1] (||| this arr1 (iarr this (fn [_] nil)))))
(defn arr [f]
- (Arrow. f))
+ (if (isa? (class f) (class (Arrow. identity)))
+ f
+ (Arrow. f)))

0 comments on commit cca2eb0

Please sign in to comment.
Something went wrong with that request. Please try again.