Skip to content
Browse files

added haskell applicative style programming <$> function

  • Loading branch information...
1 parent b87ef87 commit e4a4127dce9c2661280dd1a322934c802c0c859f Jason Jackson committed Jun 2, 2011
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/eu/dnetlib/clojure/clarsec.clj
View
4 src/eu/dnetlib/clojure/clarsec.clj
@@ -59,6 +59,8 @@
;; Bind with a non monadic function
(defn >>== [p f]
(bind p #(result (f %))))
+(def <$> >>==)
+
(def any-token
(make-monad 'Parser
@@ -195,4 +197,4 @@
((monad (force parser)) input))
;;(defn -main []
-;; (println (parse (>> (delay letter) (delay letter)) "ca.")))
+;; (println (parse (>> (delay letter) (delay letter)) "ca.")))

0 comments on commit e4a4127

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