-- | Generates a link tag in the head of a widget.
rssLink :: Route m
        -> String -- ^ title
        -> GWidget s m ()
rssLink u title = addHamletHead
#if __GLASGOW_HASKELL__ >= 700
    [hamlet|
#else
    [$hamlet|
#endif
    <link href=@{u} type=#{S8.unpack typeRss} rel="alternate" title=#{title}
    |]
rssLink :: Route m
        -> String -- ^ title
        -> GWidget s m ()
rssLink u title = addHamletHead
#if __GLASGOW_HASKELL__ >= 700
    [hamlet|
#else
    [$hamlet|
#endif
    <link href=@{u} type=#{S8.unpack typeRss} rel="alternate" title=#{title}
    |]
rssLink u title = addHamletHead
#if __GLASGOW_HASKELL__ >= 700
    [hamlet|
#else
    [$hamlet|
#endif
    <link href=@{u} type=#{S8.unpack typeRss} rel="alternate" title=#{title}
    |]