Browse files

Addtl cleanup to work with haml-macro

  • Loading branch information...
1 parent e5885ce commit b87ef879a6e44c9e9c8ba3dc4af4c23bb68881e2 Devin Walters committed Jan 4, 2011
Showing with 5 additions and 8 deletions.
  1. +5 −8 src/eu/dnetlib/clojure/clarsec.clj
View
13 src/eu/dnetlib/clojure/clarsec.clj
@@ -48,9 +48,7 @@
(make-monad 'Parser
(fn opt-plus [strn]
(failback
- (first
- (drop-while failed?
- (map #((monad (force %)) strn) parsers)))
+ (first (drop-while failed? (map #((monad (force %)) strn) parsers)))
(failed)))))
(defn >> [p1 p2]
@@ -107,15 +105,14 @@
#(if (nil? %) () %)))
(defn many1 [parser]
- (let-bind
- [a parser
- as (many parser)]
- (result (concat [a] as))))
+ (let-bind [a parser
+ as (many parser)]
+ (result (concat [a] as))))
(defn end-by-m [f p sep]
(f (let-bind [r p
_ sep]
- (result r))))
+ (result r))))
(defn end-by [p sep]
(end-by-m many p sep))

0 comments on commit b87ef87

Please sign in to comment.