From aae2f816a08a265340f84c6e50fd8665c6ab4617 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 18 Mar 2019 23:23:07 +0100 Subject: Update monad library. --- main.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'main.scm') diff --git a/main.scm b/main.scm index 320df14..fc11a26 100755 --- a/main.scm +++ b/main.scm @@ -24,9 +24,9 @@ (macros arrow) (util) - (control monad) - (control monad state) - (data stack) + (monad) + (monad state) + (monad stack) (fmt-stack) (html) @@ -82,14 +82,14 @@ fmt-before <- (get-attr) (push (class-handlers class)) fmt-with <- (get-attr) - ret <- (fmap (cut string-append fmt-with <> fmt-before) - (fmap string-concatenate (sequence (map fmt-tag nodes)))) + ret <- (<$> (cut string-append fmt-with <> fmt-before) + (<$> string-concatenate (sequence (map fmt-tag nodes)))) (pop) (return-state ret))] ;; Default rule, since the above case requires a class list [(tag _ node nodes ...) - (fmap string-concatenate (sequence (map fmt-tag (cons node nodes))))] + (<$> string-concatenate (sequence (map fmt-tag (cons node nodes))))] ;; Just ignore tags without children [(tag _) (return-state "")] -- cgit v1.2.3