added haskell applicative style programming <$> function

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.")))