diff --git a/src/Handler/Common.hs b/src/Handler/Common.hs
index a69eb82..4fe82af 100644
--- a/src/Handler/Common.hs
+++ b/src/Handler/Common.hs
@@ -45,7 +45,7 @@ getSitemapR = do
         yieldMany $ entryToSitemapUrl <$> entries
 
 categoryToSitemapUrl :: Entity Category -> SitemapUrl (Route App)
-categoryToSitemapUrl (Entity catId cat) = SitemapUrl
+categoryToSitemapUrl (Entity _ cat) = SitemapUrl
     { sitemapLoc = CategoryR $ categoryTag cat
     , sitemapLastMod = Nothing
     , sitemapChangeFreq = Nothing