1 files changed, 14 insertions, 10 deletions

diff --git a/posts/blog-rss.md b/posts/blog-rss.md
index f7dbe37..4e8cb24 100644
--- a/posts/blog-rss.md
+++ b/posts/blog-rss.md
@@ -16,20 +16,24 @@ Each item carries a title, an url, a date, and contents as follows:
 
 Along the way two helper functions were introduced — if an implementation of those already exists in Prelude or somewhere else common please mail in a comment:
 
-    (<->) :: [(a -> b)] -> a -> [b]
-    [] <-> _ = []
-    (f:fs) <-> x = (f x:fs <-> x)
+~~~ {.haskell}
+(<->) :: [(a -> b)] -> a -> [b]
+[] <-> _ = []
+(f:fs) <-> x = (f x:fs <-> x)
 
-    (<-->) :: [(a -> a)] -> a -> a
-    [] <--> x = x
-    (f:fs) <--> x = fs <--> (f x)
+(<-->) :: [(a -> a)] -> a -> a
+[] <--> x = x
+(f:fs) <--> x = fs <--> (f x)
+~~~
 
 ## Update ##
 
-    import Control.Applicative ((<*>), pure)
+~~~ {.haskell}
+import Control.Applicative ((<*>), pure)
 
-    (<->) fs = (<*>) fs . pure
+(<->) fs = (<*>) fs . pure
 
-    (<-->) = flip $ foldl (.) id
+(<-->) = flip $ foldl (.) id
+~~~
 
-Thanks, viktor.
\ No newline at end of file
+Thanks, viktor.