00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Remove unused category ID binding to avoid compiler warnings

Browse source
This commit is contained in:
Danielle McLean 2017-10-15 01:41:46 +11:00
parent e24e7db641
commit 940b62b6fc
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Handler/Common.hs
View file

@ -45,7 +45,7 @@ getSitemapR = do
yieldMany $ entryToSitemapUrl <$> entries yieldMany $ entryToSitemapUrl <$> entries
categoryToSitemapUrl :: Entity Category -> SitemapUrl (Route App) categoryToSitemapUrl :: Entity Category -> SitemapUrl (Route App)
categoryToSitemapUrl (Entity catId cat) = SitemapUrl categoryToSitemapUrl (Entity _ cat) = SitemapUrl
{ sitemapLoc = CategoryR $ categoryTag cat { sitemapLoc = CategoryR $ categoryTag cat
, sitemapLastMod = Nothing , sitemapLastMod = Nothing
, sitemapChangeFreq = Nothing , sitemapChangeFreq = Nothing