From 99050117215366b65e886f2fe7f8d7e9abf8bd1f Mon Sep 17 00:00:00 2001
From: Luite Stegeman <stegeman@gmail.com>
Date: Fri, 3 Feb 2012 14:04:03 +0100
Subject: [PATCH] Workaround for GHC warnings (#252)

---
 yesod-newsfeed/Yesod/AtomFeed.hs | 4 ++--
 yesod-newsfeed/Yesod/RssFeed.hs  | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/yesod-newsfeed/Yesod/AtomFeed.hs b/yesod-newsfeed/Yesod/AtomFeed.hs
index dd347e4c..e35ad408 100644
--- a/yesod-newsfeed/Yesod/AtomFeed.hs
+++ b/yesod-newsfeed/Yesod/AtomFeed.hs
@@ -75,11 +75,11 @@ entryTemplate arg =
 atomLink :: Route m
          -> String -- ^ title
          -> GWidget s m ()
-atomLink u title = addHamletHead
+atomLink r title = addHamletHead
 #if __GLASGOW_HASKELL__ >= 700
                 [hamlet|
 #else
                 [$hamlet|
 #endif
-<link href=@{u} type=#{S8.unpack typeAtom} rel="alternate" title=#{title}
+<link href=@{r} type=#{S8.unpack typeAtom} rel="alternate" title=#{title}
 |]
diff --git a/yesod-newsfeed/Yesod/RssFeed.hs b/yesod-newsfeed/Yesod/RssFeed.hs
index 124e06ff..1bd1a087 100644
--- a/yesod-newsfeed/Yesod/RssFeed.hs
+++ b/yesod-newsfeed/Yesod/RssFeed.hs
@@ -72,11 +72,11 @@ entryTemplate arg =
 rssLink :: Route m
         -> String -- ^ title
         -> GWidget s m ()
-rssLink u title = addHamletHead
+rssLink r title = addHamletHead
 #if __GLASGOW_HASKELL__ >= 700
     [hamlet|
 #else
     [$hamlet|
 #endif
-    <link href=@{u} type=#{S8.unpack typeRss} rel="alternate" title=#{title}
+    <link href=@{r} type=#{S8.unpack typeRss} rel="alternate" title=#{title}
     |]