diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-18 23:23:07 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-18 23:23:07 +0100 |
commit | aae2f816a08a265340f84c6e50fd8665c6ab4617 (patch) | |
tree | 12f78ddba92efc2f491ae08a39b3afc1cbf5c3bd /main.scm | |
parent | Better cache. (diff) | |
download | texttv-aae2f816a08a265340f84c6e50fd8665c6ab4617.tar.gz texttv-aae2f816a08a265340f84c6e50fd8665c6ab4617.tar.xz |
Update monad library.
Diffstat (limited to 'main.scm')
-rwxr-xr-x | main.scm | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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 "")] |