Commits

Moritz Heidkamp committed 1612cd4

Remove some gratuitous uses of ->>

Comments (0)

Files changed (1)

   (one-or-more space-char))
 
 (define new-line
-  (->> (preceded-by (is #\return) (maybe (is #\newline)))
-       (any-of (is #\newline))))
+  (any-of (is #\newline)
+          (preceded-by (is #\return)
+                       (maybe (is #\newline)))))
 
 (define space-new-line
   (sequence space* (maybe (preceded-by new-line space*))))
    (html-element-parser
     (as-string (one-or-more (in #[a-zA-Z])))
     (lambda (_ close)
-      (->> (none-of* close inline)
-           (zero-or-more))))))
+      (zero-or-more (none-of* close inline))))))
 
 (define raw-html
   (any-of html-comment (html-inline-element)))