1 files changed, 10 insertions, 0 deletions

diff --git a/posts/blog-rss.md b/posts/blog-rss.md
index 559a6c6..f7116a9 100644
--- a/posts/blog-rss.md
+++ b/posts/blog-rss.md
@@ -23,3 +23,13 @@ Along the way two helper functions were introduced — if an implementation of t
     (<-->) :: [(a -> a)] -> a -> a
     [] <--> x = x
     (f:fs) <--> x = fs <--> (f x)
+
+== Update
+
+    import Control.Applicative ((<*>), pure)
+
+    (<->) fs = (<*>) fs . pure
+
+    (<-->) = flip $ foldl (.) id
+
+Thanks, viktor.
\ No newline at end of file