1 files changed, 6 insertions, 6 deletions

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