From 940b62b6fcb6975d300db151c2b4cf6d237aab58 Mon Sep 17 00:00:00 2001
From: Danielle McLean <dani@00dani.me>
Date: Sun, 15 Oct 2017 01:41:46 +1100
Subject: [PATCH] Remove unused category ID binding to avoid compiler warnings

---
 src/Handler/Common.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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