M pubsub-entry-publish.hs => pubsub-entry-publish.hs +2 -2
@@ 118,11 118,11 @@ main = do
$ Blaze.text $ title config
Blaze.toMarkup (author config)
Blaze.customLeaf (s"link") True
- ! customAttribute (s"rel") (s"alernate")
+ ! customAttribute (s"rel") (s"alternate")
! customAttribute (s"href") (Blaze.toValue itemUri)
forM_ (httpUri config) $ \http ->
Blaze.customLeaf (s"link") True
- ! customAttribute (s"rel") (s"alernate")
+ ! customAttribute (s"rel") (s"alternate")
! customAttribute (s"type") (s"text/html")
! customAttribute (s"href") (Blaze.toValue http)
when (comments config) $