haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Workaround for GHC warnings (#252)

Browse Source
This commit is contained in:
Luite Stegeman 2012-02-03 14:04:03 +01:00
parent 87c75eddac
commit 9905011721
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-newsfeed/Yesod/AtomFeed.hs
View File

@ -75,11 +75,11 @@ entryTemplate arg =
atomLink :: Route m atomLink :: Route m
-> String -- ^ title -> String -- ^ title
-> GWidget s m () -> GWidget s m ()
atomLink u title = addHamletHead atomLink r title = addHamletHead
#if __GLASGOW_HASKELL__ >= 700 #if __GLASGOW_HASKELL__ >= 700
[hamlet| [hamlet|
#else #else
[$hamlet| [$hamlet|
#endif #endif
<link href=@{u} type=#{S8.unpack typeAtom} rel="alternate" title=#{title} <link href=@{r} type=#{S8.unpack typeAtom} rel="alternate" title=#{title}
|] |]

4
yesod-newsfeed/Yesod/RssFeed.hs
View File

@ -72,11 +72,11 @@ entryTemplate arg =
rssLink :: Route m rssLink :: Route m
-> String -- ^ title -> String -- ^ title
-> GWidget s m () -> GWidget s m ()
rssLink u title = addHamletHead rssLink r title = addHamletHead
#if __GLASGOW_HASKELL__ >= 700 #if __GLASGOW_HASKELL__ >= 700
[hamlet| [hamlet|
#else #else
[$hamlet| [$hamlet|
#endif #endif
<link href=@{u} type=#{S8.unpack typeRss} rel="alternate" title=#{title} <link href=@{r} type=#{S8.unpack typeRss} rel="alternate" title=#{title}
|] |]