Permalink
Browse files

Cosmetic change in Maybe monad

  • Loading branch information...
edtsech authored and khinsen committed Feb 5, 2014
1 parent c48d268 commit c6e64985019bec27d335cfdaab0488fd38a2f3bd
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/main/clojure/clojure/algo/monads.clj
@@ -359,7 +359,7 @@
[m-zero nil
m-result (fn m-result-maybe [v] v)
m-bind (fn m-bind-maybe [mv f]
- (if (nil? mv) nil (f mv)))
+ (when-not (nil? mv) (f mv)))
m-plus (fn m-plus-maybe [& mvs]
(first (drop-while nil? mvs)))
])

0 comments on commit c6e6498

Please sign in to comment.