Now adding feed references in head

This commit is contained in:
nek0 2015-08-19 06:50:43 +02:00
parent 41197dc911
commit f0d53ce8b7

View file

@ -32,31 +32,49 @@ $maybe msg <- mmsg
<div class="right"> <div class="right">
$case route $case route
$of Just HomeR $of Just HomeR
<head>
<link rel="alternate" type="application/atom+xml" title="Root Feed" href=@{RootFeedAtomR}>
<link rel="alternate" type="application/rss+xml" title="Root Feed" href=@{RootFeedRssR}>
get a Feed from This: get a Feed from This:
<a href="@{RootFeedAtomR}">Atom <a href="@{RootFeedAtomR}">Atom
| |
<a href="@{RootFeedRssR}">RSS <a href="@{RootFeedRssR}">RSS
$of Just (PageR _) $of Just (PageR _)
<head>
<link rel="alternate" type="application/atom+xml" title="Root Feed" href=@{RootFeedAtomR}>
<link rel="alternate" type="application/rss+xml" title="Root Feed" href=@{RootFeedRssR}>
get a Feed from This: get a Feed from This:
<a href="@{RootFeedAtomR}">Atom <a href="@{RootFeedAtomR}">Atom
| |
<a href="@{RootFeedRssR}">RSS <a href="@{RootFeedRssR}">RSS
$of Just (ProfileR uId) $of Just (ProfileR uId)
<head>
<link rel="alternate" type="application/atom+xml" title="User Feed" href=@{UserFeedAtomR uId}>
<link rel="alternate" type="application/rss+xml" title="User Feed" href=@{UserFeedRssR uId}>
get a Feed from This: get a Feed from This:
<a href="@{UserFeedAtomR uId}">Atom <a href="@{UserFeedAtomR uId}">Atom
| |
<a href="@{UserFeedRssR uId}">RSS <a href="@{UserFeedRssR uId}">RSS
$of Just (UserR name) $of Just (UserR name)
<head>
<link rel="alternate" type="application/atom+xml" title="User Feed" href=@{NameFeedAtomR name}>
<link rel="alternate" type="application/rss+xml" title="User Feed" href=@{NameFeedRssR name}>
get a Feed from This: get a Feed from This:
<a href="@{NameFeedAtomR name}">Atom <a href="@{NameFeedAtomR name}">Atom
| |
<a href="@{NameFeedRssR name}">RSS <a href="@{NameFeedRssR name}">RSS
$of Just (AlbumR aId) $of Just (AlbumR aId)
<head>
<link rel="alternate" type="application/atom+xml" title="Album Feed" href=@{AlbumFeedAtomR aId}>
<link rel="alternate" type="application/rss+xml" title="Album Feed" href=@{AlbumFeedRssR aId}>
get a Feed from This: get a Feed from This:
<a href="@{AlbumFeedAtomR aId}">Atom <a href="@{AlbumFeedAtomR aId}">Atom
| |
<a href="@{AlbumFeedRssR aId}">RSS <a href="@{AlbumFeedRssR aId}">RSS
$of Just (MediumR mId) $of Just (MediumR mId)
<head>
<link rel="alternate" type="application/atom+xml" title="Comment Feed" href=@{CommentFeedAtomR mId}>
<link rel="alternate" type="application/rss+xml" title="Comment Feed" href=@{CommentFeedRssR mId}>
get a Feed from This: get a Feed from This:
<a href="@{CommentFeedAtomR mId}">Atom <a href="@{CommentFeedAtomR mId}">Atom
| |